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fischertechnik computing Plotter/Scanner 


Lieber fischertechnik-Freund, 


kaum ein technisches Instrument laBt sich so vielfal- 
tig einsetzen, wie ein Computer. Eines der reizvoll- 
sten Gebiete der Computertechnik ist jedoch die 
Steuerung technischer Modelle. Mit dem fischer- 
technik computing Bausatz Plotter/Scanner haben 
Sie jedoch nicht nur ein Modell erworben, sondern 
ein voll funktionsfahiges Peripheriegerat fur Ihren 
Computer. Mdglich ist dies durch die geschickte 
Verwendung praziser Bauelemente, aber auch 
durch Spezialteile, wie die beiden Schrittmotoren. 
Und dennoch verlieren Sie nicht die Vorteile eines 
Bausatzes: Beim Aufbauen und beim Einsatz sehen 
Sie, wie das Gerat funktioniert. 

Mit dem Plotter k6nnen Sie Entwirfe, Konstruktio- 
nen, mathematische Funktionen, Diagramme und 
MeBdaten zu Papier bringen. DaB dies so einfach 
geht, dafiir burgt ein gestaffeltes Softwarekonzept, 
das Sie von den ersten Schritten des Schrittmotors 
Uber die elementaren Unterprogramme eines Plot- 
ters bis zu vielseitig einsetzbaren Anwendungspro- 
grammen fihrt. Sogar eine ganze Buchstaben- 
bibliothek zur Beschriftung der Zeichnungen steht 


zur Verfigung. Die Software ist erlautert; auf jeder 
Stufe kénnen Sie mit eigenen Ideen die Software 
aus- und umbauen. 

Aber auch die Asthetik der Computergrafik kommt 
neben den rein technischen Anwendungen nicht zu 
kurz. Reizvolle Grafiken lassen sich mit dem Plotter 
erstellen. Doch damit nicht genug. Der Plotter laBt 
sich mit wenigen Handgriffen in einen Scanner um- 
gestalten. Der Plotter war noch ein Ausgabegerat, 
d.h. im Computer vorhandene Daten wurden nach 
,drauBen* auf das Papier gebracht. Der Scanner ist 
ein Eingabegerat. In dieser nicht so haufig bekann- 
ten Anordnung wird anstelle des Schreibmechanis- 
mus des Plotters ein Lesekopf eingesetzt, mit dem 
die Graustufen der Vorlage erfaBt werden. Der Infor- 
mationsfluB verlauft also von der Vorlage in den 
Computer hinein. 

Die Software des Scanners ist in die Zukunft gerich- 
tet. Es werden die Methoden der digitalen Bildauf- 
zeichnung und Bildauswertung diskutiert. Es stellt 
sich die Frage, wie ein Computerprogramm in kiirze- 
ster Zeit einen einmal gezeigten Gegenstand wie- 
dererkennen kann. Damit klingen Fragestellungen 
der Robotik an. In den Lesekopf des Scanners k6n- 


nen Sie sich hineindenken und ihn als einen Roboter 
auffassen, der seine Umwelt erforscht. Ein unbe- 
streitbarer Vorteil: Sie kKonnen die Umwelt des Robo- 
ters mit wenigen Strichen auf einem Papier festle- 
gen, das unter den Lesekopf geschoben wird. 
Aber auch ganz andere Anwendungen lassen sich 
mit dem Plotter/Scanner verwirklichen. Wie ware es 
mit einer CNC-gesteuerten Bohrmaschine? Oder 
aber auch mit einem X-Y-Koordinatentisch ? Auch 
diese Projekte kénnen Sie in Angriff nehmen, denn 
was an Bauteilen fur Ihre individuelle Anwendung 
fehlen mag, laBt sich leicht aus dem groBen Pro- 
gramm der fischertechnik erganzen. Selbstver- 
standlich passen alle Teile zusammen und lassen 
sich beliebig kombinieren. 

Ich bin sicher, daB der fischertechnik computing 
Plotter/Scanner Sie zu einer Reihe weiterer eigener 
Experimente anregen und Ihr Wissen und Ihre Erfah- 
rung auf diesem Gebiete erheblich erweitern wird. 


ata (fide 


Steuerung der Schrittmotoren 


Eines der wichtigsten Bauelemente des Plotter/ 
Scanner sind die beiden Schrittmotoren zum An- 
trieb der beiden Achsen. Schrittmotoren unter- 
scheiden sich in grundsatzlicher Weise von den 
lhnen vielleicht besser vertrauten Gleichstrommo- 
toren. Gleichstrommotoren sind z.B. die drei fischer- 
technik Motoren, der 6-V-Motor, der mini-Motor und 
der S-Motor. Diese Gleichstrommotoren bendtigen 
lediglich, wie der Name schon sagt, eine Gleich- 
spannung zu ihrem Betrieb. Die Gleichspannung 
kann man Batterien oder einem Netzgerat entneh- 
men. Sie wird in den meisten Fallen noch Uber einen 
Schalter gefiihrt, bevor sie an den Motor gelangt. Mit 
diesem kann sie aus- und eingeschaltet werden. 
Zusatzlich kann noch ihre Polaritat gewahlt werden; 
damit wird die Drehrichtung gesteuert. Der Schalter 
wird in unserem Fall durch das fischertechnik com- 
puting Interface gebildet, da wir ja die Modelle per 
Computer steuern wollen. 


Gegeniiber diesem Betrieb der Gleichstrommotoren 
ergeben sich bei Schrittmotoren einige Unterschie- 
de. Als erster Unterschied zu dem Gleichstrommotor 
fallt auf, daB der Schrittmotor nicht zwei, sondern 
vier Anschliisse hat. Der Schrittmotor hat zwei 
Magnetsysteme, die unabhangig gesteuert werden. 
Bild 1 zeigt eine schematische Darstellung eines 
Schrittmotors. Die beiden Magnetsysteme sind um 
90° versetzt. Zwischen den Magnetpolen befindet 
sich ein Dauermagnet, der mit der Motorwelle ver- 
bunden ist. Er ist hier vereinfacht als KompaBnadel 
dargestellt. Die KompaBnadel stellt sich nun ent- 
sprechend dem Magnetfeld der beiden Spulen ein. 
Nehmen Sie sich einen Schrittmotor aus dem Bau- 
kasten und montieren Sie ihn in der kleinen Halte- 
rung. Auf diese Weise kénnen Sie bequem den 
Motor beachten. SchlieBen Sie nun den Schrittmo- 
tor an das Interface an. Dazu verbinden Sie die rote 
und die schwarze Litze des Schrittmotors mit M1. 
Der Ausgang M1 versorgt somit das Magnetsystem 1 
des Schrittmotors. Die griine und die graue Litze des 


Schrittmotors wird mit M2 verbunden. Uber M2 wird 
somit das Magnetsystem 2 versorgt. Zum AnschluB 
an das Interface dient das farblich codierte Flach- 
bandkabel. An einem Ende des Kabels ist ein zwan- 
zigpoliger Stecker angebracht, der in das Interface 
eingesteckt wird. Wenn das AnschluBkabel vom 
Interface nach rechts weggeht, wird die unterste 
Ader braun, die oberste schwarz sein. Alle Farben 
tauchen jedoch zweimal auf, im folgenden z.B. als 
rot! und rot2 bezeichnet. Von unten nach oben 
erfolgt die Numerierung in der Reihenfolge braun1, 
roti,... schwarz1, braun2,... schwarz2. M1 finden 
Sie auf den Leitungen orange2 — gelb2, M2 auf den 
Leitungen grtin2 — blau2. Versehen Sie diese vier 
Adern wie weiter hinten ausfUhrlich beschrieben mit 
vier fischertechnik Flachsteckern. Hier noch einmal 
die Kabelanschliisse nach ihren Kabelfarben: 


Interface M1 orange2 — Schrittmotor rot 
Interface M1 gelb2 —- Schrittmotor schwarz 
Interface M2 gruin2 — Schrittmotor grin 
Interface M2 blau2 — Schrittmotor grau 


Bild 7 
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Wichtig: Interface und Plotter mussen aus einem 
hinreichend belastbaren Netzgerat versorgt wer- 
den. Wir empfehlen das fischertechnik computing 
Netzgerat. Wahlweise kann die Versorgung auch mit 
zwei Netzgeraten mot4 erfolgen. 


Laden Sie nun das Diagnoseprogramm von der 
fischertechnik computing Diskette oder Kassette. 
Falls Sie das Programm noch nicht kennen: Es dient 
dazu, alle Ausgdnge des Interface von der Compu- 
tertastatur direkt zu steuern. AuBerdem werden alle 
Eingange tberwacht und auf dem Bildschirm darge- 
stellt. Letzteres bendétigen wir im Moment noch nicht. 
Wahlen Sie den Ausgang M1 durch die Taste ,,1“ an. 
Er wird in inverser Schrift dargestellt. Drucken Sie 
anschlieBend die Taste ,,R“, wodurch M1 in die Pol- 
richtung ,rechts* geschaltet wird. Danach wahlen 
Sie mit Taste ,2“ den Ausgang M2 an. Durch die 
Taste ,,R“ wird ebenfalls die gleiche Polrichtung wie 
an M1 eingeschaltet. 

Im Gegensatz zu einem Gleichstrommotor lauft der 
Schrittmotor bei Anlegen der Betriebsspannung 
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nicht los. Sie werden héchstens einen kleinen Ruck 
des Schrittmotors bemerken. Allerdings halt nun der 
Schrittmotor die Motorwelle mit einer erstaunlichen 
Kraft in ihrer Lage. Um dieses Verhalten zu verste- 
hen, wollen wir noch einmal das Modell des Schritt- 
motors in Bild 1a anschauen. Durch die Stréme von 
M1 und M2 wird in dem Schrittmotor ein Magnetfeld 
erzeugt, bei dem die beiden Nordpole auf der unte- 
ren, die beiden Siidpole auf der oberen Seite liegen. 
Dadurch stellt sich die Motorwelle mit der KompaB- 
nadel so ein, daB der Nordpol zwischen die beiden 
mit vereinter Kraft ziehenden Sidpole zeigt. Ent- 
sprechend wird der Sidpol der KompaBnadel von 
den beiden Nordpolen auf der linken Seite angezo- 
gen. Zur Erinnerung an die Schulphysik: Ungleiche 
Magnetpole ziehen sich an, gleiche Magnetpole sto- 
Ben sich ab. 


Um den Motor zu bewegen, verandern wir das 
Muster der durch M1 und M2 erzeugten Magnetfel- 
der. Schalten Sie der Reihenfolge nach die Aus- 
gange M1 und M2: 


M1. links 
M2 _ links 
M1 rechts 
M2 rechts 


Beobachten Sie dabei die Welle des Schrittmotors. 
Mit jedem Polrichtungswechsel wird sie sich ein 
Stiickchen weiterdrehen. In den Bildern 1b bis 1d ist 
der Zusammenhang zwischen den Polrichtungen 
und den Wellenstellungen aufgezeigt. Allerdings 
macht der Schrittmotor keine Vierteldrehungen, wie 
die Zeichnung vermuten /aBt. In Wirklichkeit sind die 
Magnetsysteme des Schrittmotors mit einer gréBe- 
ren Polzahl versehen, so daB der Schrittmotor 
Schritte von 7,5° ausfiihrt. Nach vier Schritten ist 
somit vom elektrischen Standpunkt wieder die Aus- 
gangslage erreicht. Eine volle Umdrehung ergibt 
sich jedoch erst nach 48 Schritten. 

So miihsam es von Hand ist, standig die Polrichtung 


der beiden Motorausgange zu wechseln, so einfach 
ist diese Angelegenheit fiir ein Computerprogramm. 
Das nachstehende Programm STEP steuert den 
Schrittmotor. Dabei kénnen Sie wahlen, ob der 
nachste Schritt des Motors auf Tastendruck oder 
nach einer festzulegenden Zeit erfolgt. 


Das Programm zeigt auch den groBen Vorteil von 
Schrittmotoren. Durch Buchfiihrung tuber die 
erzeugten Schritte ist jederzeit die Position des 
Schrittmotors bzw. der angetriebenen Mechanik 
erkennbar. Es werden also keine zusatzlichen Posi- 
tionsmelder wie z.B. bei einem Gleichstrommotor 
bendtigt. Diese Eigenschaft hat den Schrittmotor in 
computergesteuerten Geraten aller Art so beliebt 
gemacht. Vielleicht haben Sie auch schon in Ihrer 
Computeranlage den einen oder anderen Schritt- 
motor in Diensten stehen. Der Antrieb des Schreib- 
Lese-Kopfes von Diskettenlaufwerken, des Matrix- 
druckkopfes und des Papiertransportes des Druk- 
kers erfolgt durch Schrittmotoren. Nun kommt noch 
die Schreibkopfsteuerung des fischertechnik com- 
puting Plotters hinzu. 


Interface und Software 


An dieser Stelle wollen wir eine kurze Bemerkung zu 
der Dokumentation der Programme bei fischertech- 
nik computing einflieBen lassen. Die Programme 
sind in dem Anleitungsheft in der Schreibweise des 
Commodore 64 abgedruckt. Mit dem Interface, das 
zu Ihrem Computer paBt, wird eine Diskette oder 
Kassette mitgeliefert, auf der die Programme auch 
vorliegen. Die BASIC-Schreibweisen der verschie- 
denen Computer unterscheiden sich leicht. Wenn 
Sie keinen Commodore 64, sondern einen anderen 
Computer haben, wird das Programm auf der Dis- 
kette oder der Kassette nicht ganzidentisch mit dem 
hier abgedruckten Programm sein. Es ist schon an 


den entsprechenden Computertyp angepaBt. Die 
Stellen, wo sich auf jeden Fall Abweichungen erge- 
ben, sind in dem Abdruck des Programms mit einem 
Sternchen vor der Zeile gekennzeichnet. Wenn Sie 
also die abgedruckten Programme mit den eingele- 
senen vergleichen oder das Programm von Hand 
eingeben wollen, mussen Sie also an den Stellen 
mit Sternchen aufpassen. Die Anleitung zu dem In- 
terface gibt Ihnen weitere Hinweise zur Anpassung 
der Programme. 


Die Anleitung zu dem Interface beinhaltet auch eine 
Erlauterung, wie die Signale des Interface von BASIC 
aus verarbeitet bzw. erzeugt werden. Hier wollen wir 
nun kurz vermerken, daB die Steuerung eines Aus- 
gangs durch Aufruf eines Maschinensprachepro- 
gramms erfolgt. Als Aufrufparameter wird die Num- 
mer des Ausgangs M1, M2, M3 oder M4 zusammen 
mit der Betriebsart RECHTS, LINKS, EIN oder AUS 
angegeben. Beispiele sind: 


* SYS M1, RECHTS 
* SYS M3, EIN 
* SYS M4, AUS 


Der Parameter EIN in der obigen zweiten Zeile ist 
Ubrigens gleichbedeutend mit dem Parameter 
RECHTS. Als allererstes muB jedoch immer der 
Befehl 


* SYS INIT 


erfolgen, der das Interface in einen Anfangszustand 
versetzt. Dabei werden alle Motoren ausgeschaltet, 
so daB dieser Befehl auch zum gleichzeitigen 
Abschalten der Motoren dient. 

Die Eingange des Interface werden mit der USR- 
Funktion erfaBt. Mit den Parametern E1, E2 bis E8 
werden die acht Eingange abgefragt, an die die mini- 
Taster angeschlossen werden. Auch andere Ein- 
Aus-Signale kénnen dort eingespeist werden. Die 
Funktionen USR(EX) und USR(EY) hingegen dienen 
der Eingabe stufenlos veranderlicher elektrischer 


Werte. Den Eingang EY werden wir spater bei der 
Abfrage des Fotowiderstandes im Lesekopf benut- 
zen. 

Wichtig zu wissen ist auch, daB das Interface eine 
Uberwachungsschaltung des Datenverkehrs be- 
sitzt. Immer wenn innerhalb einer halben Sekunde 
kein neuer Befehl, sei es ein Ausgabe- oder Einga- 
bebefehl, kommt, schaltet es alle Motoren ab. Beim 
Stoppen des Computerprogramms brauchen Sie 
daher nicht eigens die Stromversorgung der Moto- 
ren abzustellen. Setzt der Datenaustausch wieder 
ein, nimmt das Interface alle Motoren wie zuletzt wie- 
der in Betrieb. 

Das Maschinenspracheprogramm, das den Daten- 
austausch zwischen Computer und _ Interface 
bewirkt, muB natiirlich auch in dem Computer abge- 
speichert sein. Hierzu dient das sogenannte Grund- 
programm, das sich ebenfalls auf der Diskette oder 
Kassette befindet. Gleichzeitig ist es Bestandteil 
eines jeden weiteren fischertechnik computing Pro- 
gramms und belegt die Zeilennummer 1 bis 500. In 
den Programmlisten dieses Anleitungsbuches 
erscheint dieser Teil jedoch nicht, da er fur jeden 
Computertyp anders ausschaut. Das Maschinen- 
programm muB ganz detailliert auf den Hard- und 
Softwareaufbau des Computers eingehen. Sie fin- 
den das Grundprogramm in der Anleitung zu Ihrem 
Interface dokumentiert. 

Sollten Sie nicht mit dem fischertechnik computing 
Interface arbeiten, sondern mit einer anderen Inter- 
faceschaltung, gilt das bisher Gesagte nattrlich 
nicht in jedem Detail. Dennoch kénnen Sie die hier 
skizzierten Ideen auch auf jeder anderen Hardware 
realisieren. 


Aufbau des Plotters 


Auf den folgenden Seiten wird gezeigt, wie der voll- 
standige Plotter aufzubauen ist. Zerlegen Sie also 
wieder den Testaufbau fiir den Motor und setzen Sie 
den Plotter zusammen. Wenn Sie den mechani- 
schen Aufbau des Plotters beendet haben, kontrol- 
lieren Sie die beiden Antriebswellen nochmals auf 
Leichtgangigkeit. AnschlieBend wird das Modell an 
das Interface angeschlossen. Hierzu finden Sie 
einen Zuschnittplan fiir das Flachbandkabel auf 
den folgenden Seiten, Bild 2. Beachten Sie, daB die 
von dem Hauptkabel abgeschnittenen Teile fiir wei- 
tere Verbindungen bendtigt werden. Entfernen Sie 
an den Kabelenden die Isolation vorsichtig auf etwa 
3-5 mm Lange, ohne die feinen Drahtchen der Litze 
zu beschadigen. AnschlieBend wird die Litze ver- 
drillt und auf die Isolation umgebogen. Lésen Sie 
das Schraubchen des fischertechnik Steckers und 
schieben Sie das Kabelende in die Hilse ein. 
Danach wird die Schraube wieder angezogen, aber 
nicht so fest, daB das Kabel abgequetscht wird 
(Bild 3). Die Verbindungskabel kénnen Sie mit dem 
in Bild 4 gezeigten Aufbau auf Durchgang pritfen. 
Das Hauptkabel testen Sie dagegen mit dem Dia- 
gnoseprogramm. SchlieBen Sie an alle Ausgange 
M1 bis M4 der Reihe nach die Lampe als Verbrau- 
cher an und schalten Sie den Ausgang ein. Leuchtet 
die Lampe, ist die Verkabelung korrekt. Die Digital- 
eingange E1 bis E8 wiederum werden durch 
AnschluB eines Tasters zwischen +5V und der 
betreffenden Eingangsleitung Uberpriift. Ahnlich 
verfahren Sie mit den beiden Analogeingangen EX 
und EY. Nur verwenden Sie dort den Fotowiderstand. 
Richten Sie diesen gegen eine Lichtquelle, zeigt das 
Programm niedrige Zahlenwerte an. Schatten Sie 
ihn mit der Hand ab, steigen die Zahlenwerte an. 


Halten Sie sich beim Verkabeln genau an den Plan 
und an das Foto, das das fertig verkabelte Modell 
zeigt. Bei Verwechslung der Kabeladern wird die 
Software bestimmt nicht korrekt arbeiten, und bei 


Fehlern in den Kabellangen kann es zur Behinde- 
rung des Bewegungsspielraums des Plotters kom- 
men. 

Die als Papierauflage dienende Acrylglasscheibe ist 
mit einer Anschlagmarkierung fir das Zeichenpa- 
pier bedruckt. Ein DIN-A4-Blatt, das dort montiert 
wird, kann in seiner ganzen Flache von dem Plotter 
Uberstrichen werden. Das Papier |aBt sich leicht mit 
einigen Stickchen Klebestreifen befestigen. 

Und noch ein Hinweis zum SchluB: Da die Grund- 
platte des Plotters transparent ist, konnen Sie den 
Plotter auch auf einen Tageslichtprojektor stellen 
und live mit Faserschreibern auf Transparentfolie 
plotten. 


Acrylglasscheibe 420 x 300 mm 
Acrylic plate 420 x 300 mm 
Vitre acrylique 420 x 300 mm 


* Vorsicht! Schrauben nur leicht festdrehen 
* Caution! do not overtighten screws 
* Attention ! Serrer legérement les vis 


GummiftiBe aufkleben 
Place selfadhesive pads 
Coller les pieds en caoutchouc 
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Auf Leichtgangigkeit der 
Spindeln achten! 

Please ensure an easy-running 
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Auf Leichtgangigkeit der 
Spindeln achten! 
Please ensure an easy-running 
of the spindles! 
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Kabelkonfektionierung -: Ribbon cable configuration - Schéma de cablage 


1200 mm 
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Steckermontage 
Plug installation 
Assemblage de cables 


Durchgangspriifung fischertechnik computing-Netzgerat 


Continuity tester fischertechnik computing power unit 


Schraubendreher Controle du passage 
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Verdrahtungsplan Plotter/Scanner - Circuit layout Plotter/Scanner - Plan de cablage de la table tracgante/du scanner 


E14 braun: brown: brun 
E2 rot: red: rouge 


EX orange: orange - orange 


Nur fiir Scanner 
For scanner only 
Seulement pour scanner 


EY gelb-: yellow: jaune 
+5V grin: green - vert 


E3  blau- blue: bleu 


E4 violet - violet - violet @) rot: red - rouge 


schwarz: black - noir 
E5 grau- grey - gris © 

© griin - green - vert 
E6  weiB - white - blanc 
@ grau - grey - gris 
E7 schwarz - black - noir 


E8 braun: brown: brun 
Orange - orange: orange 


+5V rot: red - rouge 
gelb - yellow - jaune 
M1 orange - orange : orange 
M1 gelb-: yellow - jaune 

M2 grtin: green - vert 

M2 _ blau - blue - bleu 

M3 violett : violet - violet 

M3 grau- grey: gris 


M4 weiB - white : blanc '@ Nur fur Scanner 


1 | For scanner only 


M4 ss schwarz: black - noir Seulement pour scanner 
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Steuerung des Plotters 


In dem vorangegangenen Abschnitt hatten wir gese- 
hen, wie ein Schrittmotor angesteuert werden muB. 
Der Plotter besitzt zwei Schrittmotoren, die unab- 
hangig die x- und die y-Achse des Plotters bewegen. 
Was lage naher, als die Schaltabfolgen, die fur einen 
Motor gelten, nun fur zwei Motoren auszulegen. Lei- 
der geht es jedoch nicht so gradlinig, wie man es 
gerne hatte. Jeder Motor belegt mit seinen beiden 
Spulensystemen zwei Ausgange des Interface. Der 
Antrieb des Plotters lastet also schon voll das Int- 
erface aus. Und nun kommt noch der Elektromagnet 
des Schreibstifts hinzu... 

Aus dieser Klemme hilft uns ein kleiner Schaltungs- 
trick. Das jeweils erste Spulensystem beider Schritt- 
motoren wird an den Ausgang M1 angeschlossen. 
Das zweite Spulensystem des x-Motors wird an den 
Ausgang M2 und das zweite Spulensystem des y- 
Motors an den Ausgang M3 angeschlossen. Nun ist 
der Ausgang M4 zur Steuerung des Schreibstiftes 
frei. Der Preis, den wir fur den freien Ausgang bezah- 
len mussen: die Schrittmotoren lassen sich nicht 
mehr unabhangig steuern. Soll z.B. eine senkrechte 
Linie gezeichnet werden, also nur der y-Motor ange- 
steuert werden, so erhalt er die Schaltfolge: 


M1 M3 


rechts 
links 
links 
rechts 
rechts 


Der Ausgang M2 des x-Motors behdalt dabei z.B. 
unverandert die Polrichtung rechts. Da jedoch M1 
auch an den x-Motor angeschlossen ist, wird letzt- 
lich wahrend der y-Bewegung nachstehende 
Schaltfolge an den x-Motor angelegt: 


rechts 
rechts 
links 

links 
rechts usw. 


akon 


M1 M2 
1 rechts rechts 
2 links rechts 
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3 links 
4 rechts 
5 rechts 


Beim Ubergang von 1 nach 2 wird der x-Motor einen 
Schritt vollfuhren. Desgleichen wird er wieder beim 
Ubergang von 3 nach 4 einen Schritt, nun aber in die 
entgegengesetzte Richtung, machen. Von diesem 
Sachverhalt kénnen Sie sich leicht anhand der Bil- 
der 1a bis 1d Uberzeugen. Insgesamt wird also der 
,unbeteiligte* Motor um einen Schritt pendeln. Dies 
ist jedoch nicht nachteilig fur die Genauigkeit der 
Zeichnung, da ein Schritt fur sich noch keinen merk- 
lichen Vorschub auslést, sondern in dem notwendi- 
gen Spiel des Plotters aufgefangen wird. WirmUussen 
bei der Programmierung des Schrittmotors lediglich 
darauf achten, daB sich die Auslenkungen nicht auf- 
summieren. Daher wurden die Programme so 
geschrieben, daB immer nur Vielfache von vier auf- 
einanderfolgenden Schritten aufgerufen werden 
kénnen. Ein solches Viererpaket nennen wirvon nun 
an Plotterschritt. Wie groB ein Plotterschritt, d.h. 
welche Auflésung kann mit dem Plotter erzielt wer- 
den? Zwédlf Plotterschritte bewirken eine Umdre- 
hung der Antriebsspindel und damit einen Vorschub 
von 1,5 mm-t. Daher entspricht ein Plotterschritt 
einer Distanz 0.3927 mm. 

Auf dieser Basis wurden Unterprogramme geschrie- 
ben, die je nach Achsenrichtung die Motoren 
steuern. Insgesamt ergeben sich vier Falle: 


positive x-Richtung (nach rechts) 
ab Zeile 50000 

negative x-Richtung (nach links) 
ab Zeile 51000 

positive y-Richtung (nach oben) 
ab Zeile 52000 

negative y-Richtung (nach unten) 
ab Zeile 53000 


rechts 
rechts 
rechts usw. 


Neben den Bewegungen in Achsenrichtungen kén- 
nen wir den Plotter auch Diagonalen zeichnen las- 


sen. In diesem Fall laufen x- und y-Motor gleichzei- 
tig. Wieder kénnen wir vier Falle, je nach Bewe- 
gungsrichtung der beiden Motoren, unterscheiden: 


positive x- und positive y-Richtung 
(nach rechts oben) ab Zeile 54000 
negative x- und positive y-Richtung 
(nach links oben) ab Zeile 56000 
negative x- und negative y-Richtung 
(nach links unten) ab Zeile 57000 
positive x- und negative y-Richtung 
(nach rechts unten) ab Zeile 55000 


Aus diesen acht Grundbewegungen lassen sich alle 
komplizierteren Bewegungen ableiten. So gibt es 
z.B. ein Unterprogramm zum Zeichnen von geraden 
Linien zwischen beliebigen Punkten der Zeichen- 
flache. In diesem Fall wird zunachst ermittelt, wel- 
cher Motor die langere Strecke zuriickzulegen hat. 
Dieser Motor lauft dann standig. Fur den Motor mit 
dem kurzeren Weg wird dann nach Bedarf immer ein 
Leerschritt oder ein Diagonalschritt eingelegt. Die 
Verteilung erfolgt so, daB sich die gezeichnete Linie 
nie zu weit von der idealen Verbindungslinie entfernt 
(s. Bild 5). Hierzu wird die Steigung der Strecke 
errechnet. Bei jedem Schritt des x-Motors wird dann 
der Steigungswert aufaddiert. Uberschreitet er den 
Wert 1, so wird der Zahler wieder zurtickgesetzt und 
ein Diagonalschritt ausgefihrt. 
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Plotter Software 


Damit wir die Ubersicht Uber alle Plotterunterpro- 
gramme behalten, werden wir sie nach einem Ord- 
nungsschema sortieren. Dabei verwenden wir die in 
der Softwareentwicklung haufig eingesetzte Scha- 
lenstruktur, wo sich eine Unterprogrammschale um 
die nachste wie die Schalen einer Zwiebel legt. In 
Bild 6 ist diese Anordnung aufgezeichnet. Den 
innersten Kern bildet die Hardware, also der Compu- 
ter mit Sichtschirm und Disketten- oder Kassetten- 
station, das Interface und der Plotter. Darum legt sich 
das Betriebssystem Ihres Computers als Schale 1, 
also jenes Programm, das ihn z.B. Gberhaupt erst 
befahigt, BASIC zu verstehen. In Schale 2 steht das 
schon oben erwadhnte Grundprogramm mit der 
Erzeugung all der Interfacebefehle. Nach auBen 
schlieBt sich in Schale 3 dann die Steuerung der 


Bild 6 


Schrittmotoren und des Schreibstiftmagneten so- 
wie die Abfrage der Endtaster an. Immer komplexer 
werden die Aufgaben der Schale 4. Das eben er- 
wahnte Programm zum Zeichnen einer geraden 
Linie liegt darin; genauso wie eine Reihe weiterer 
nutzlicher Unterprogramme, die wir gleich bespre- 
chen werden. Wir stoBen noch weiter nach auBen in 
die Schale 5 vor. In diesen Unterprogrammen befin- 
den sich die sogenannten Plottertools. Das Wort 
Tools kommt aus dem Englischen und heiBt wértlich 
Werkzeuge. In der Softwaretechnik bezeichnet man 
als Tools solche Programme, die umfangreiche, hau- 
fig wiederkehrende Aufgaben, erledigen. In diesem 
Fall ist es das Zeichnen von Koordinatenachsen, 
Rechtecken und Kreisen. Auch dies wird noch im 
folgenden besprochen. 

Ganz nach auBen schlieBt sich nun das Anwender- 
programm an, also jenes, das Sie schreiben. Als 
Starthilfe haben wir Ihnen drei Beispiele von Anwen- 
derprogrammen mitgegeben. Der Witz der Schalen- 
struktur ist nun, daB Unterprogrammsprtinge oder 
Kommandoaufrufe immer nur von auBen nach innen 
erfolgen. Mit dieser Kenntnis kénnen Sie bei der Ent- 
wicklung eigener Programme gezielt die Schalen 
abbauen, die Sie nicht bendtigen und andere Unter- 
programme erganzen. 

Doch nun zurtick zu Schale 4. Als Routinen der 
Schale 4 werden in dem Programm PLOT folgende 
Unterprogramme definiert: 


HOME 


Parameter: keine 
Einsprungzeile 40000 


Funktion: Fahrt den Plotter in den physikalischen 
Koordinatenursprung. Der Schreibstift ist dabei ab- 
gehoben. Die beiden Schrittmotore werden solange 
bewegt, bis die beiden Endtaster ansprechen. 
Danach lauft der Plotter wieder in das Zeichenfeld 
hinein, bis die Endtaster nicht mehr betatigt sind. 


i KK 


Hinzu kommen noch zwei extra Schritte, so daB nun 
ein sicherer Abstand vom Anschlag eingehalten 
wird. Zum AbschluB werden eine Reihe von Flaggen 
auf Null gesetzt, unter anderem wird an der jetzigen 
Position der Nullpunkt des Koordinatensystems ver- 
einbart. 

Dieser Befehl ist typisch der erste Befehl vor allen 
anderen Plotterbefehlen. Er empfiehlit sich auch als 
letzter Befehl, da in diesem Befehl der Schreibstift 
abgehoben wird und der Plotkopf an den Rand fahrt 
und das Papier freigibt. 


LINE 


Parameter: X und Y 

Einsprungzeile 44000 

Funktion: Das Programm zeichnet eine Linie von der 
jetzigen Plotterposition zu dem mit X und Y angege- 
benen Punkt. Der Schreibstift ist zum Zeichnen ab- 
gesenkt. 


RLINE 


Parameter: X und Y 

Einsprungzeile 46000 

Funktion: Das Programm zeichnet eine Linie von der 
jetzigen Plotterposition zu dem um X und Y verscho- 
benen Punkt. Der Unterschied zu LINE besteht somit 
darin, daB nicht der tatsachliche Zielpunkt, sondern 
nur die Distanz bis zu jenem angegeben wird. 


MOVE 


Parameter: X und Y 

Einsprungzeile 45000 

Funktion: MOVE bewegt den Schreibstift zu dem 
Zielpunkt (X, Y) ohne zu zeichnen, d.h. der Schreib- 
stift ist abgehoben. Ansonsten entspricht MOVE 
dem Unterprogramm LINE. 


RMOVE 


Parameter: X und Y 
Einsprungzeile 47000 
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Funktion: So wie MOVE LINE entspricht, verhalt es 
sich mit RMOVE zu RLINE. D.h., es wird nicht 
gezeichnet und die Koordinatenangabe erfolgt rela- 
tiv durch Angabe des Distanzwertes. 


SET ORIGIN 


Parameter: X und Y 

Einsprungzeile 42000 

Funktion: Der Nullpunkt des Koordinatensystems 
wird von nun an auf den Punkt (X,Y) verlegt. Die 
Angabe des Koordinatenursprungs erfolgt unter 
Bezugnahme auf das bislang geltende Koordinaten- 
system. Vor dem ersten Aufruf des Unterprogramms 
SET ORIGIN fallt das Koordinatensystem mit dem 
mechanischen System des Plotters zusammen, liegt 
also in der linken unteren Ecke, nahe bei den End- 
tastern. 


ORIGIN 


Parameter: keine 

Einsprungzeile 41000 

Funktion: Hebt den Schreibstift ab und fahrt den 
Plotter auf den Ursprung des Koordinatensystems. 
Dieses muB nicht mit der linken unteren Ecke des 
Plotters zusammenfallen, sondern kann auch durch 
das oben beschriebene Kommando SET ORIGIN auf 
eine andere Position verlegt worden sein. 


CHAR 


Parameter: X, Y, A$, R und G 
Einsprungzeile 48000 


Funktion: Dieses Unterprogramm zeichnet die 
Buchstaben, die in der Zeichenvariablen A$ abge- 
legt sind, an der durch X und Y angegebenen 
Position. Genauer gesagt: Sie mUssen sich den 
Buchstaben mit einem Rahmen versehen vorstellen 
(Bild 7). Das Unterprogramm nimmt an, daB der Stift 
an der linken unteren Ecke des Buchstabenrah- 
mens steht. Nachdem das Zeichen gemalt ist, steht 
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der Schreibstift an der rechten unteren Ecke des 
Rahmens und ist abgehoben. Der Buchstabenvorrat 
des Plotters ist in Bild 8 wiedergegeben. Der Para- 
meter R bezeichnet die Schreibrichtung des Plot- 
ters. Bei der Beschriftung von Grafiken entsteht 
durchaus auch einmal die Anforderung, senkrecht 
verlaufende oder auf dem Kopf stehende Texte zu 
erzeugen. Bild 9 zeigt die Schriften bei den verschie- 
denen Werten fiir R. Durch das Unterprogramm 
HOME wird R mit dem Wert 0 festgelegt. 

Mit G wird die GréBe des Zeichens gewahlt. Norma- 
lerweise, d.h. durch Aufruf des Unterprogramms 
HOME, steht G auf 2. Fur G kann jeder beliebige 
ganzzahlige Wert gewahit werden, solange das Zei- 
chenfeld nicht iberschritten wird. In Bild 9 ist gleich- 
falls die Wirkung des Parameters G zu sehen. 


RCHAR 


Parameter: X, Y, A$, R und G 
Einsprungzeile 49000 


Bild 7 ae <> 8 yh 


Funktion: Dieses Unterprogramm fiihrt die gleichen 
Funktionen wie CHAR aus. Wie schon bei den oben- 
genannten Unterprogrammen unterscheidet sich 
die Positionierung wieder darin, daB nur die Distanz 
zur jetzigen Position in X und Y Ubergeben wird. 
Gerade bei fortlaufenden Texten ist RCHAR von In- 
teresse. Da nach dem Zeichnen des ersten Buch- 
stabens der Plotstift in der rechten unteren Ecke 
des Buchstabenrahmens steht, kann mit X=0 und 
Y=0 das Programm RCHAR direkt den nachsten 
Buchstaben anftiigen. 


SCALE 


Parameter: X1, X2, Y1, Y2 

Einsprungzeile 43000 

Funktion: Nicht immer werden Sie bei allen Kom- 
mandos sich die Zahl der Schrittmotorschritte als 
Koordinate errechnen wollen. Mit dem Unterpro- 
gramm SCALE kénnen Sie dem linken Papierrand 
den Wert X1, dem rechten Rand den Wert X2 verlei- 
hen. Entsprechend setzen Sie Y1 fir den unteren 
Rand und Y2 fur den oberen Rand. Alle folgenden 
Koordinatenangaben beziehen sich auf dieses neue 
Koordinatenssystem. 


1" HEAR? ()*+,-.7 
0123456789: ; <=>? 
SABCDEF GH] JKLMNO 
PQRSTUVWXY ZAGU* 
‘abcde fghi j kl mn 
opors tuvwxyzaau3 


Plottertools 


Wenn Sie das Programm PLOT laden, so sind neben 
den bisher besprochenen Unterprogrammen drei 
weitere Unterprogramme geladen. 


AXIS 


Parameter: XA, YA, XE, YE, X1, Y1, X2, Y2, SK, X$ 
und Y$ 

Einsprungzeile 22000 

Das Programm AXIS dient der Zeichnung des Ach- 
senkreuzes eines Koordinatensystems. Gerade, 
wenn Sie Funktionen, MeBresultate oder Verteilun- 
gen zeichnen wollen, werden Sie dieses Unterpro- 
gramm immer wieder einsetzen kénnen. Es besitzt 
eine ganze Reihe von Parametern, mit denen Sie das 
Achsenkreuz gestalten kénnen. Die Lage des Ach- 
senkreuzes wird Uber die vier Variablen XA, XE, YA 


Bild 9 


und YE gesteuert. XA bezeichnet den Anfang der 
x-Achse, XE deren Ende. Entsprechend bestimmen 
YA und YE Anfang und Ende der y-Achse. XA, XE und 
YA, YE werden dabei in Bezug auf die linke untere 
Ecke des Plotters in Plotterschritten angegeben. 
Das Unterprogramm AXIS ordnet jedoch diesen 
Plotterschritten, ahnlich wie das Unterprogramm 
SCALE, die tatsachlichen Werte Ihres Koordinaten- 
systems zu. X1 ist der Wert an der Stelle XA, X2 an 
XE, Y1 an YA und Y2 an YE. Auf diese Weise kénnen 
Koordinatenachsen beliebiger Abmessung mit be- 
liebigen Wertebereichen gezeichnet werden. 

Wenn der Parameter SK verschieden von 0 ist, so 
erfolgt eine Beschriftung der beiden Achsen. 

Das Unterprogramm versucht hier nach Erfahrungs- 
werten die Gestaltung des Koordinatenkreuzes vor- 


peg 
CO 
ib: 
aks 

D 

1D: 

ibe 


a SS 


zunehmen. Sollten Sie eine abweichende Gestal- 
tung wiinschen, so kénnen Sie anhand der Doku- 
mentation der Programme selbst eingreifen. Zusatz- 
lich kann fur jede Achse noch ein kurzer Beschrif- 
tungstext angegeben werden, der in den Zeichen- 
kettenvariablen X$ und Y$ abgelegt ist. Schriftgr6Be 
und Richtung sind in dem Unterprogramm AXIS fest- 
gelegt, kénnen jedoch dort nattirlich noch nach 
Wunsch abgeandert werden. 


CIRCLE 


Parameter: X, Y, RX, RY, WA und WE 

Einsprungzeile 21000 

Das zweite Tool ist ein Unterprogramm zum Zeich- 
nen von Kreisen. Jedoch nicht nur Kreise um den 
Mittelpunkt (X, Y) lassen sich zeichnen, sondern, als 
Verallgemeinerung des Kreises, auch Ellipsen. 
Gesteuert wird dies durch die Angabe getrennter 
Halbmesser in x- und y-Richtung, RX und RY. Uber- 
dies muB nicht der ganze Kreis oder die ganze 
Ellipse gezeichnet werden. Mit WA und WE wird der 
Anfangs- und der Endwinkel des Kreis- bzw. Ellip- 
senbogens angegeben. Die Zahlung des Winkels 
erfolgt dabei im GradmaB gegen den Uhrzeigersinn, 
beginnend bei der positiven x-Achse. 


BOX 


Parameter: XA, XE, YA, YE und S 

Einsprungzeile 20000 

Dieses Unterprogramm zeichnet ein Rechteck. 
Dabei bezeichnet XA, YA den linken unteren Eck- 
punkt, XE, YE den rechten oberen Eckpunkt. Wird S 
verschieden von Null angegeben, wird die Recht- 
eckflache in Diagonalrichtung schraffiert. Der abso- 
lute Wert von S (also ohne Berticksichtigung des 
Vorzeichens) gibt die Spreizung der Schraffur an. 
Das Vorzeichen steuert, ob die Schraffur von links 
unten nach rechts oben verlauft (bei positivem 
S-Wert) bzw. von links oben nach rechts unten 
(bei negativem S-Wert). 
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Anwendungsprogramme 


Auf der Diskette oder Kassette finden Sie drei 
Anwendungsprogramme, die Ihnen die Benutzung 
des Plotters und der Plotterprogramme zeigen sol- 
len. Diese Programme k6énnen Ihnen somit auch als 
Beispiel fur eigene Entwicklungen dienen. Zwei der 
Programme dienen der Aufzeichnung von Funktio- 
nen, das dritte zeigt die Darstellung dreidimensio- 
naler Objekte. 


Programm FUNCTION 


Mit dem Programm FUNCTION kénnen Sie jede 
beliebige Funktion der Form Y=F(X) auf dem Plotter 
darstellen. Das einzige was Sie hier noch zu tun 
haben, ist die Funktion zu definieren. Hierzu muB die 
Zeile 1000 entsprechend geandert werden. In unse- 
rem Beispiel lautet die Zeile 


1000 DEF FNY(X)=SIN(X)*EXP (-0.02*X) 


Damit wird der Plot einer gedampften Sinusschwin- 
gung erstellt, wie ihn Bild 10 zeigt. Der Name der 
Funktion muB aus technischen Griinden noch ein- 
mal als Zeichenkette zur Beschriftung des Plots ein- 
gegeben werden: 


1010 F$=”SIN(X)*EXP (-0.02*X)” 


AuBerdem muB noch in Zeile 1020 der Wertebereich 
der unabhangigen Variablen X angegeben werden. 
In unserem Beispiel steht hier 


1020 XA=0 : XE=90 


Alle drei Zeilen k6nnen Sie nach ihren Erfordernis- 
sen abandern. Der Rest tut dann das Programm fir 
Sie. Es errechnet Minimum und Maximum der Funk- 
tion, so daB das Papier optimal ausgenutzt wird. Es 
legt das Koordinatenkreuz an und zeichnet dann die 
Funktion. Abhangig vom Computertyp kann die 
Laufdauer des Programms zwischen 20 und 80 
Minuten betragen. 


Programm PARAM.F 
Viele Grafiken lassen sich nicht als Funktion Y=F(X) 
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schreiben. Denken Sie z.B. an den Kreis (fiir den wir 
zwar ein eigenes Unterprogramm haben). Seine 
Funktionsgleichung wirde in obiger Schreibweise 
lauten: 


1000 DEF FNY(X)=SQR(R*R — X*X) 


Damit wurde aber nur der obere Halbkreis gezeich- 
net werden. AuBerdem wirden sich Fehlermeldun- 
gen einstellen, wenn der Zeichenbereich gréBer als 
der Radius R gewahlt werden wirde. 

Solche Funktionen werden besser als zweidimen- 
sionale Funktionen eines Laufparameters T be- 
schrieben. Hierfur ist das Programm PARAM.F ein- 
gerichtet. Analog wird die Funktion wieder mit dem 
DEF-Kommando vereinbart: 


1000 DEF FNX(T)=COS(T) 

1010 DEF FNY(T)=SIN(T) 

1020 F$="KREIS” 

1030 TA=0 : TE=6.2832 : TS=0.1 

1040 AX=1 : REM KOORDINATENKREUZ 
ZEICHNEN 

1050 XA=-1.1 : XE=1.1 : YA=-1.1 : YE=1.1 


Das obige Beispiel zeigt, wie mit PARAM.F nun pro- 
blemlos der Kreis gezeichnet wird. Die Zeilen 1000 
bis 1030 sind wie die entsprechenden Zeilen des 
Programms FUNCTION zu benutzen. Die Zeilen 1040 
und 1050 sollten wirnoch erlautern. Mit dem Wert der 
Variablen AX wird gesteuert, ob ein Koordinaten- 
kreuz gezeichnet werden soll. Im obigen Fall wird es 
gezeichnet; ware AX=0, wurde es unterdrickt. Das 
Programm PARAM.F fiihrt auch keine Skalierung des 
Wertebereichs durch, um nicht zu unerwiinschten 
Verzerrungen der Grafik zu fihren. Daher werden in 
Zeile 1050 die Grenzwerte in beiden Achsrichtungen 
angegeben. Sollte der Funktionswert auBerhalb die- 
ser Grenzen liegen, lauft der Schreibstift am Rande 
entlang. Lassen Sie sich von der Schénheit einiger 
Funktionen, die wir nachstehend auffiihren, begei- 
stern. 


Lissajous Figur 1 


1000 DEF FNX(T)=SIN(F1*T+P1) 

1010 DEF FNY(T)=SIN(F2*T) 

1020 LET TA=0 : TE=8*ATN(1) : TS=0.02 

1030 LET XA=-1.3 : XE=1.3 : YA=-1.3 : YE 
=1.3 

1040 LET AX=0 : REM KEIN 
KOORDINATENKREUZ 

1050 LET F1=2 : F2=3 : P1=ATN(1) 


Lissajous Figur 2 
dto. jedoch 


1050 LET F1=5 : F2=7 : P1=2*ATN(1) 


Zeichengenerator 


Die in den Unterprogrammen CHAR bzw. RCHAR 
benutzten Zeichen sind in einem gréBeren Block von 
DATA-Zeilen codiert. Um Ihnen die Méglichkeit zu 
geben, die Zeichen abzuwandeln oder auch neue 
Zeichen zu definieren (ASCII-Code Nr. 128-255 sind 
noch nicht belegt!), ist ein Buchstaben-Generator- 
programm Bestandteil der Software. Je nach Com- 
putertyp ist es in das Programm PLOT integriert oder 
getrennt ladbar. Der Aufbau des Programms hangt 
stark von dem Grafiksystem des Computers ab, so 
daB hier keine allgemeingiltige Beschreibung ge- 
geben werden kann. Die Bedienung des Programms 
ist daher selbsterklarend. 


| 
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Scannerbetrieb 


Das Baukastenprinzip der fischertechnik erméglicht 
einen leichten Umbau des Plotters zu einem Scan- 
ner. Erfolgt beim Plotter die Ausgabe der im Compu- 
ter vorliegenden Daten auf das Papier, so dreht sich 
beim Scanner die Datenrichtung herum. Die in den 
Scanner eingelegte Vorlage wird von einem Lese- 
kopf iberstrichen. Darin ist zum einen eine Beleuch- 
tung eingebaut, um immer unterhalb des Lesekop- 
fes eine gleichmaBige Ausleuchtung der Vorlage zu 
erzielen. 

Weiter ist dort ein Fotowiderstand untergebracht. 
Ein Fotowiderstand verandert seinen Widerstands- 
wert je nach der Intensitat der Beleuchtung. Je heller 
er beleuchtet wird, desto niedriger ist sein Wider- 
standswert. Der Fotowiderstand ist so abgeschirmt, 
daB das direkte Licht der Beleuchtung nicht auf ihn 
einstrahlen kann. Vielmehr wird von dem Fotowider- 
stand nur das von der Vorlage reflektierte Licht regi- 
striert. Diese Lichtmenge hangt wiederum von dem 
Grauton der Vorlage ab. Somit ist es mdglich, die 
Vorlage zu ,lesen*. 


Den Widerstandswert des Fotowiderstands erfassen 
wir mit Hilfe des eingangs beschriebenen Ana- 
logeingangs EY. Fur erste Testzwecke kénnen Sie 
das ebenfalls schon erwahnte Diagnoseprogramm 
von der Diskette oder der Kassette laden. Starten Sie 
das Programm. Je nach Interfacetyp werden Sie 
héchstwahrscheinlich einen Uberlauf von EY bei 
255 oder aber eine Zahl gréBer als 255 beobachten. 
Es wird Zeit, das Licht einzuschalten! Wahlen Sie 
also M4 an (durch Driicken der Taste 4) und schalten 
Sie den Ausgang ein (durch Driicken der Taste R). 
Nun leuchtet die Lampe und EY zeigt gleich nied- 
rigere Werte an. Schieben Sie ein weiBes Blatt Papier 
unter den Lesekopf und notieren Sie sich den 
Wert EY. Farben Sie nun eine gréBere Flache mit 
schwarzem Filzschreiber ein oder verwenden Sie 
ein Stuck schwarzer Pappe. Auch diesen Wert soll- 
ten Sie sich notieren. Beide Werte beschreiben nun 
die Helligkeitsspanne zwischen ganz hell und ganz 


dunkel. Grauwerte sollten zwischen diesen beiden 
Extremwerten liegen. Sie k6nnen dies auch auspro- 
bieren. Wir kénnen hier leider keine exakten Anga- 
ben Uber den Werteumfang machen. Er hangt von 
vielerlei Faktoren ab: dem jeweiligen Typ des Inter- 
face, den Wertstreuungen von Lampe und Foto- 
widerstand, der Helligkeit des Papiers und dem 
Umgebungslicht. In jedem Fall sollten aber die ein- 
gelesenen Werte zwischen 0 und 255 liegen. 


In einem nachsten Experiment zeichnen Sie 
schwarze Striche verschiedener Breite auf weiBes 
Papier. Schieben Sie die Striche in Querrichtung 
unter dem Lesekopf hindurch. Sie werden feststel- 
len, daB erst bei Strichen, die breiter als 5 mm sind, 
Sie annahernd an den zuvor registrierten Schwarz- 
wert herankommen, wenn der Lesekopf exakt tiber 
dem Strich positioniert ist. Je feiner der Strich ist, 
desto mehr wird sich der eingelesene Wert dem 
WeiBwert annahern. Bei ganz diinnen Strichen ver- 
Andert sich der Wert EY Gberhaupt nicht mehr, wenn 
Sie den Strich unter dem Lesekopf hindurchschie- 
ben. Es sollte aber in jedem Fall méglich sein, 2mm 
breite Linien noch sicher zu erkennen. 


Digitale Bildaufzeichnung 


Vielleicht werden Sie auch schon neidvoll Anlagen 
betrachtet haben, wo mit Hilfe einer Videokamera 
Bilder aufgezeichnet, in den Computer Uberspielt 
und dort ausgewertet wurden. Eine solche Anlage 
hat jedoch auch ihren Preis. Und wenn Sie etwas 
Zeit haben, kénnen Sie das gleiche Resultat auch 
mit dem Scanner erzielen. Das Programm SCANNER 
dient der Abtastung einer Bildvorlage. Die Abtastung 
erfolgt zeilenweise. Sie kénnen das Bildformat wah- 
len. Es erfolgt nun die Aufzeichnung des Bildes. 
Wahrend der Zeit, in der der Scanner lauft, sollte sich 
die Umgebungshelligkeit nicht verandern. Am be- 


sten ist es, wenn der Raum etwas abgedunkelt ist; 
damit wird der Kontrast des Bildes gesteigert. Wenn 
dann die Daten des Bildes im Arbeitsspeicher des 
Computers vorliegen, k6nnen Sie nach Herzenslust 
mit innen experimentieren. Dazu werden die Daten 
zunachst auf Diskette bzw. Kassette abgelegt. 


Bildauswertung 


Zu der nachfolgenden Bildauswertung bendtigen 
wir ein Grafiksystem fiir unseren Heim- bzw. Perso- 
nalcomputer. Neuere Modelle sind bereits damit 
ausgestattet. Bei alteren Computern wird es in aller 
Regel Zusatzausristungen geben, mit denen sich 
Bildschirmgrafik verwenden laBt. Aber auch einige 
neuere Computer haben zwar alle notwendige Hard- 
ware fir eine Bildschirmgrafik eingebaut, unterstit- 
zen jedoch jene nicht durch entsprechende Soft- 
ware. In diesem Fall k6nnen Sie eine erweiterte Soft- 
ware erwerben und vor dem Laden der nachfolgen- 
den Programme installieren. Fur den Commodore 64 
Computer verwenden wir in der nachfolgenden 
Programmdokumentation die BASIC-Erweiterung 
SIMONS BASIC, die von Commodore erhAltlich ist. 
Sollten Sie die Programme auf andere Computer 
oder andere Softwaresysteme adaptieren wollen, so 
beachten Sie alle mit Sternchen gekennzeichneten 
Programmzeilen. Da wir mit den Grafikbefehlen 
sparsam umgehen, wird es keine gréBere Schwie- 
rigkeiten geben, die gleichwertigen Befehle zu fin- 
den und die Programme abzuwandeln. 

Doch nun zu unserer ersten Bildauswertung mit dem 
Programm B&W. Wir wollen eine Grautontrennung 
vornehmen. Dies bedeutet, daB alle Elemente des 
Datenfeldes mit einem hellen Bildschirmpunkt dar- 
gestellt werden, wenn ihr Wert unter einem vorgege- 
benen Grenzwert liegt. Liegt er darauf oder dartiber, 
so wird er als dunkler Bildschirmpunkt dargestellt. 
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Den Grenzwert kénnen Sie an der Computertastatur 
eingeben. Probieren Sie einmal verschiedene Werte 
aus. Stellen Sie auch die Grenzen des Wertebe- 
reichs fest. Sie werden dann erreicht, wenn das 
ganze Bild weiB oder dunkel ist. 

Auch die Bildaufl6sung laBt sich im Nachhinein 
andern; selbstverstandlich nur noch gréber wahlen. 
Das Programm D.PIC ist aus dem vorigen weiterent- 
wickelt und bestimmt nun automatisch minimalen 
und maximalen Helligkeitswert. Danach werden Sie 
nach dem Grenzwert und der Auflésung gefragt. 
Digitalisieren Sie einmal ein Portrait. Lassen Sie sich 
das Portrait mit der geeigneten Schwelle auf dem 
Bildschirm anzeigen. Reduzieren Sie nun Stick fiir 
Stuck die Auflésung. Wann kann die Person auf dem 
Bild nicht mehr erkannt werden ? 

Wenn Sie Fotos digitalisiert haben, erreichen Sie auf 
diese Weise faszinierende Bildverfremdungen, die 
man auch als kiinstlerisches Gestaltungsmittel ein- 
setzen kann. Fur die meisten Computer sind in den 
Computerzeitschriften schon sogenannte Hard- 
copy-Programme verdffentlicht worden. Darunter 
versteht man Programme, die den momentanen 
Bildschirminhalt verzerrungsfrei auf den Drucker 
kopieren. Solche Programme kénnen Sie nutzen, 
um Ihre Kreationen auf dem Papier festzuhalten. 


Jedoch nicht nur die Kunst, auch die Technik und die 
Medizin profitieren von der digitalen Bildverarbei- 
tung. Denken Sie z.B. an Réntgenbilder. Wenn es 
nicht gerade auf die Knochen ankommt, sondern 
z.B. auf innere Organe, leidet eine klassische Rént- 
genaufnahme unter mangelndem Kontrast. Abhilfe 
schafft auch hier die digitale Bildverarbeitung. Mit 
Hilfe des Computers kann nicht nur ein Grauwert als 
Grenze zwischen Schwarz und WeiB festgelegt wer- 
den. Vielmehr ist es méglich, mehrere Grenzwerte 
festzulegen. Damit wird der Bereich der Grautdne in 
Intervalle eingeteilt. Jedem Intervall wird nun eine 
Bildschirmfarbe nach Wahl zugeordnet. Was vorher 
kaum unterscheidbare Grauténe waren, steht nun 


als wohl unterscheidbare Farbe nebeneinander. 
Damit werden im Réntgenbild Details erkennbar, die 
vorher kaum zu entdecken gewesen waren. Mit Hilfe 
des Programms COLORS und einem recht flauen 
Photo kénnen Sie sich von der Wirksamkeit dieser 
Methode Utberzeugen. Ubrigens wird dieses Ver- 
fahren nicht nur in der Medizin, sondern auch bei 
der Auswertung von Luftbildaufnahmen angewandt. 
Auch Aufnahmen mit anderen Sensoren, z.B. Infra- 
rot- und thermische Aufnahmen, Ultraschall- und 
radiometrische Aufzeichnungen oder Computer- 
tomographien werden auf diese Weise ausgewertet. 
Aber auch diese nitzliche Technik erlaubt Ihnen 
wieder interessante Kreationen auf dem Gebiet der 
Computergraphik. 


Mustererkennung 


Mit dem Abtasten eines Bildes im zeilenweisen 
Durchlauf wird das Bild vollstandig erfaBt. Manch- 
mal wird aber gar nicht die vollstandige Information 
eines Bildes bendtigt. Oder die vollstandige Informa- 
tion ist sogar hinderlich, weil dann die gewUinschte 
Information erst bei Durchmusterung einer groBen 
Datenmenge gewonnen wird. Um einen solchen Fall 
handelt es sich bei der Mustererkennung. 
Mustererkennung wird z.B. in der Robotertechnik 
bendtigt. Nehmen Sie an, ein Roboter soll ein Teil, 
das auf einem Férderband transportiert wird, auf- 
nehmen und in ein Gerat einsetzen. Das Teil wird auf 
dem Férderband in aller Regel in beliebiger Lage 
ankommen. Eventuell liegen sogar falsche Teile 
auch auf dem Férderband. Diese darf der Roboter 
nicht verwenden, sondern muB Sie von dem Férder- 
band entfernen. Um diese Aufgabe lésen zu kénnen, 
wird ein Bildverarbeitungssystem in die Roboter- 
steuerung eingebaut. 

Gleiches wollen wir nun mit dem Scanner ver- 
suchen. Wir nehmen an, unsere Aufgabe besttinde 
darin, einen schwarzen Kreis auf weiBem Grund zu 
erkennen. Den Kreis kénnen Sie mit schwarzem 
Filzschreiber auf ein weiBes Blatt Papier zeichnen. 
Aufgrund des Helligkeitsunterschiedes laBt sich der 
Kreis dann mihelos mit Hilfe des Fotowiderstan- 
des erkennen. Wir kénnten nun unser bisheriges 
Scannerprogramm verwenden und die ganze Bild- 
flache abtasten. Wir hatten dann aber die oben 
erwahnten Nachteile der recht langen Scanzeit 
sowie der Extraktion der Daten. 


Schneller geht es, wenn wir den Scanner zuerst den 
Kreis suchen lassen. Danach tastet sich der Scan- 
ner entlang der Schwarz-WeiB-Grenze der Figur. Er 
wird dabei immer zwischen den Gebieten hin- und 
herpendeln und sich im Zick-Zack-Schritt voranar- 
beiten. Wenn er das konsequent tut, muB er wieder 
an der Ausgangsposition anlangen. Danach wird der 
Weg ausgewertet. Naherungsweise wird der Mittel- 
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punkt des Kreises als Schwerpunkt der Bahn des 
Scanners berechnet. Dies hat den Vorteil, daB es 
leicht zu programmieren ist und ergibt fir unsere 
Zwecke hinreichend genaue Ergebnisse. Der Kreis- 
radius ergibt sich als Mittelwert aller Abstande vom 
Mittelpunkt zu den Bahnpunkten. Damit sind in 
unserem Beispiel alle notwendigen Daten zur 
Mustererkennung vorhanden. 


Wir kénnen in einer Lernphase dem Programm einen 
Referenzkreis anbieten. Wenn dieser durch das Pro- 
gramm PATTERN aufgezeichnet wurde, ist es in 
der Lage, auf Tastendruck weitere Figuren zu un- 
tersuchen. Stimmen nun Mittelpunkt und Radius 
uberein, so handelt es sich um einen zu dem Refe- 
renzkreis vollkommen gleichen Kreis, eventuell 
sogar den Referenzkreis selbst. Stimmt dagegen der 
Radius, nicht jedoch die Lage des Mittelpunktes, mit 
dem Referenzkreis Uberein, so handelt es sich um 
einen ahnlichen Kreis. Dies ist die Situation bei dem 
Roboter, wo die Teile in beliebiger Lage auf dem 
Férderband ankommen kénnen. Das Programm 
errechnet dann die Verschiebung des Mittelpunk- 
tes gegentiber dem Referenzkreis. 

Stimmen weder Mittelpunkt noch Radius mit der 
Vorgabe Uberein, so wird es sich um einen verschie- 
den groBen Kreis handeln. Dies kann z.B. der Fall 
sein, wenn das Sichtsystem des Roboters ihn aus 
verschiedener Distanz beobachtet. In diesem Fall 
wird von dem Programm PATTERN auch die relative 
Distanz, bezogen auf jene des Referenzkreises be- 
rechnet. 

Experimentieren Sie mit dem Programm und bauen 
Sie es aus. Computervision ist eines der interessan- 
testen Forschungsgebiete der Robotik, und wir wol- 
len nicht ausschlieBen, daB Sie einen noch ge- 
schickteren Algorithmus finden. 


CNC-Bohrmaschine 


Eine Selbstverstandlichkeit fiir einen fischertechnik 
Bausatz: Er laBt sich mit allen anderen fischertech- 
nik-Teilen kombinieren und damit erweitern. Dies gilt 
auch fiir den Plotter/Scanner. Wenn Sie noch ein 
oder zwei Mini-Motoren, z.B. aus dem fischertechnik 
Service-Set, Ubrig haben, so kénnen Sie anstelle 
des Schreib- oder Lesekopfes einen ,Bohrstander“ 
anbauen. Der Hubmotor des Bohrstanders wird an 
den Ausgangskanal M4 des Interface angeschlos- 
sen werden. Damit wird der Bohrer gehoben und 
gesenkt. Die Bohrmaschine selbst wird durch einen 
weiteren Mini-Motor dargestellt. Er wird direkt an 
das Netzgerat angeschlossen und lauft standig. 
Nattrlich kénnen Sie mit diesem Motor nicht richtig 
bohren, auch der Aufbau ware nicht verwindungs- 
steif genug - jedoch zur Schulung wird sich der 
Plotter/Scanner in dieser AusfUhrung hervorragend 
eignen. Auch die Betriebssoftware ist schnell er- 
stellt, da nur geringfiigige Anderungen gegentiber 
der Plottersoftware vorgenommen werden missen. 
Die Steuerung des Hubmagneten enifallt; an ihre 
Stelle tritt ein Programmstiick, das den Bohrer 
herabfahrt, wartet und wieder hinauffahrt. 


Abdruck der Programme 


Nachfolgend sind die BASIC-Programme ftir den 
Plotter/Scanner wiedergegeben. Die Programme 
sind in der Schreibweise des Commodore 64 auf- 
gefuhrt und bendtigen teilweise die BASIC-Erweite- 
rung Simons BASIC. Die Programme kénnen auch 
von der fischertechnik Diskette Trainingsroboter/ 
Plotter/Scanner geladen werden. Dies gilt auch fur 
die entsprechenden Programme fiir andere Compu- 
ter. Fordern Sie die Diskette unter Angabe des Typs 
Ihres Computers und Laufwerks bitte bei: 


fischerwerke Artur Fischer GmbH & Co. KG 
Abt. fischertechnik 
7244 Tumlingen/Waldachtal 


an. Sie mUssen hierzu den beigefiigten Gutschein 
verwenden. 
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Prog. STEP 


sys INIT 
REM FISCHERTECHNIK COMPUTING 
REM STEP .64 
REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 
REM BELEGUNG DES INTERFACE 
REM SPULE 1 - M1 
REM SPULE 2 - M2 
REM FUNK TION: 
REM STEVERUNG DES SCHRITTMOTORS WAHLWEISE 
REM IM EINZELSCHRITT ODER MIT WAEHLBARER 
REM VERZOEGERUNG. 
REM 

PRINT CHR#( 147) 

PRINT"F ISCHERTECHNIK " 
PRINT"COMPUT ING “ 

PRINT 

PRINT"SCHRITTMOTORS TEVERUNG " 
PRINT? PRINT 

PRINT"STEUERUNG PER EINZELSCHRITT" 
INPUT"ODER MIT VERZOEGERUNG (E/V>"7AS 
IF AS="E" THEN GOTO 1110 

IF AS<>"V" THEN GOTO 1868 
INPUT "VERZOEGERUNGSDAUER ";¥V 
REM BEGINN DER PHASENZ YKLEN 
REM 

REM PHASE 1 

SYS M1,RECHTS 

SYS M2 ,RECHTS 

GOSUB 2aaa 

REM 

REM PHASE 2 

SYS M1,LINKS 

SYS M2,RECHTS 

GOSUB 2009 

REM 

REM PHASE 3 

SYS M1,LINKS 

SYS Me,LINKS 

GOSUB 2200 

REM 

REM PHASE 4 

SYS M1,RECHTS 

SYS M2,LINKS 

GOSUB 2000 

REM 

REM ENDE DES ZYKLUS 

GOTO 1140 

REM VERZOEGERUNGSROUT INE 

IF fA: E" THEN GOTO 2a70 

FOR Z=0 TO V 

REM VERZOEGERUNGSSCHLE IFE 
NEXT 2 

RETURN 

REM EINZELSCHRITT 
INPUT"WEITER MIT >RETURNC "* BS 
RETURN 


Prog. PLOT 


*500 
510 
seo 
530 
540 
550 
560 
570 
580 
5398 
600 
605 
610 
630 
640 
650 
660 
665 
670 
675 
680 
685 
§30 
635 
700 
7Os 
710 
720 
730 
740 
758 
76a 
778 
7380 
730 
800 
810 
820 
830 
840 
850 
860 

*870 
880 
830 
900 

#910 
920 
930 
340 
950 
960 
370 

*980 


SYS INIT:REM INTERFACE INITIALISIERUNG 
REM 

REM FISCHERTECHNIK COMPUTING 
REM 

REM PLOT.64 

REM 

REM COPYRIGHT (C> ARTUR FISCHER FORSCHUNG 1985 
REM 

REM PLOTTER TOOLS! 

REM 

REM 20000 BOX 

REM 21900 CIRCLE 

REM 22000 AXIS 

REM 

REM PLOTTER KOMMANDOS: 

REM 

REM 499090 HOME 

REM 41080 ORIGIN 

REM 42090 SET ORIGIN 

REM 43000 SCALE 

REM 44000 LINE 

REM 45900 MOVE 

REM 46900 RLINE 

REM 479800 RMOVE 

REM 488090 CHAR 

REM 49080 RCHAR 

REM 

REM PLOTTER BEWEGUNGEN: 

REM 

REM 589000 +X-SCHRITT 

REM 51888 -X-SCHRITT 

REM 529098 +Y-SCHRITT 

REM 53000 -Y-SCHRITT 

REM 54000 +X/+Y-DIALOGE 

REM 55000 +X/-Y-DIALOGE 

REM 56900 -X/+Y-DIAGONALE 
REM 57080 -X/-Y-DIALOGE 

REM 58@0@ STIFT AB 

REM 59008 STIFT HOCH 

REM 699080 ENDTASTER? 

REM 61000 BERE ICHSUEBERSCHRE I TUNG? 
REM 

PRINT CHRS¢ 147) 

PRINT" PLOTTER-INITIALISIERUNG" 
GOSUB 40000 :REM HOME 

REM 

PRINT CHR®¢(147) 

PRINT" ZEICHENSATZ WIRD EINGELESEN" 
DIM 2%¢(255,9) 

FOR 1=0 TO 255 

FOR J=@ TO 9 

READ 2%(1,J) 

NEXT J,1 

PRINT CHR#( 147) 


1008 REM 
1810 REM 2 OOOO III I IOIOIIGK 


1020 REM *** BEGINN DES BENUTZERPROGRAMMS *** 
1030 REM 2 OI OOOO III OK 


19000 
19800 
19810 
19820 
19830 
19835 
19840 
19845 
19850 
19855 
19860 
19865 
19870 
19875 
19880 
198390 
19895 
19900 
19918 
19920 
19930 
19940 
19950 
19960 
19970 
19980 
19985 
19998 
20008 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
2003908 
20100 
20110 
20120 
20130 
20148 
20150 
20160 


20178 
20180 
20198 
20200 
20210 
e02e0 
219080 
21010 


END 

REM 

REM WICHTIGE GLOBALE VARIABLEN: 

REM 

REM XM,YM? BREITE, HOEHE DER PLOTTERFLAECHE 
REM IN PLOTTERSCHRITTEN 

REM ®J,YJ? ABSOLUTE KOORDINATEN DES 

REM AKTUELLEN PUNKTES 

REM (@,0> = LINKE,UNTERE ECKE? 

REM EINHEIT=1 PLOTTERSCHRITT 

REM *H,YH? VIRTUELLER (LOGISCHER) NULLPUNKT 
REM IN ABSOLUTEN KOORDINATEN 

REM *S,YS? SKALIERUNG, ANZAHL PLOTTERSCHRITTE 
REM PRO LOGISCHE EINHEIT 

REM *0,YO: (=KOUT,YOUT) FLAGS? 


REM WERDEN 1, WENN XJ,YJ AUSSERHALB 
REM PLOTTERFLAECHE 0...X%M,0...YM 
REM 


REM OOOO IOI OO IORI IOR 

REM xex PLOTTER TOOL S xe 

REM OOOO III IOI III IOI 

REM 

REM IN DIESER SCHALE BENUTZTE VARIABLEN: 
REM 

REM G,R,RX,RY,-S,SK,W,WA WE WS ,AS,X8, 1S 
REM %,XO,X1,%2,X3,XA,XE,XH,KS,Y 

REM Y0,Y1,Y2,Y3,YA,YD,YE,YH,YS 


REM 

REM *** BOX *#x 

REM 

IF XA > XE THEN X = XE!XE = KA?XA = XK 
IF YA >. YE THEN) Y = YEIYE + YARYR = ¥ 


LET X=KA!LET Y=YA:GOSUB 45900 
Y=YE:GOSUB 44000 
Y=YE:GOSUB 44000 

LET X=XE:LET Y=YA:GOSUB 44900 

LET ¥=KA‘LET Y=YA:GOSUB 44900 

IF S=@ THEN RETURN 

REM SCHRAFF IEREN 

FOR X0=8 TO CKE-xXAD+CYE-YA) STEP ABS(S) 
IF XD<CYE-YA) THEN LET X=KA!Y=YE-xXD:GOTO 20140 
LET X=KAtXDt+YA-YE? Y=YA 

TF S ¢ @ THEN LET Y=YE+YA-Y 

GOSUB 45000 

IF XD>¢XE-XA) THEN LET X=XE? Y=YE+KE-xA-XD 
‘GOTO 201908 

LET X=KA+KD: Y=YE 

TPS: § OOTHEN LET Y=VE+VAAY 

GOSUB 44000 

NEXT XD 

RETURN 

REM 

REM *** CIRCLE *** 

REM 


21020 
21038 
21040 
21858 
21060 
21065 
219070 
21980 
210398 
21100 
21119 
21120 
21130 
21148 
21150 
21160 
21178 
22000 
22010 
ee020 
22025 
22030 
22040 
22050 
22068 
22065 
22078 
22089 
22085 
22030 
22180 
22110 
22120 
22130 
22140 
22150 
22160 
22178 
22180 
22198 
22200 
22218 
22220 
22230 
222490 
22250 
22260 
22270 
22275 
22280 
*22290 


*22300 
22318 
22320 
22325 


LET RX=ABS(RX):LET RY=ABSC(RY) 

LET XA=X:LET YA=Y?REM MITTELPUNKT MERKEN 
LET ®=KA+RX*COS CATN¢ 1) #WA/45 > 

LET Y=YA+RY#S INCATN( 1) *WA/45) 

GOSUB 45900 

REM WINKELSCHRITTWE ITE 

LET WS=SGNCWE-WA ) #808/(RX#XS +RY YS +48 > 
FOR W=WA TO WE STEP WS 

LET X=xKAtRX*COS CATNC( 1) #745) 

LET Y=YA+RY*#SINCATNG 1) #745) 

GOSUB 44920 

NEXT W 

LET X=XAtRX*COS CATN( 1) WE 745) 

LET Y=YAtRY*S INCATN( 1) *WE/45 > 

GOSUB 44@90:REM KREISBOGEN SCHLIESSEN 
RETURN 

REM 

REM *#* AXIS ***# 

REM 

REM XA,XE,YA,YE GEBEN DIE LAGE DER ACHSEN 
REM IN DER BISHERIGEN SKALIERUNG AN, 

REM %1,%2,¥1,Y2 SIND DIE KOORDINATEN-WERTE 
REM AN DEN ACHSENDPUNK TEN 

REM 

REM SKALIERUNG DER PLOTTERFLAECHE 

REM ENTSPR.KOORD INATENACHSEN 

REM 

REM *8,%3,Y8,Y3: NEUE KOORDINATEN 

REM AM RANDE DER PLOTTERFLAECHE 

REM 

LET X@=%1-(2-X1)* CXA+KH/XS )/CKE-XAD 

LET X3=X2+ (X2-K1)*¢ CXM-XH)/XS-XE > /(XE-XAD 
LET YO=Y1-CY2-Y1)*CYATYH/YS)/CYE-YA? 

LET Y3=Y2+¢Y2-Y¥1)*¢ CYM-YH)/YS-YE>/CYE-YA? 
LET XS=KM/(X3-xO) 

LET YS=YM/¢Y3-Y®) 

LET XH=-xX@*xS 

LET YH=-YOxYS 

REM ACHSEN EINZE ICHNEN 

IF Y1 > @ OR Y2 < @ THEN 22430 

REM *-ACHSE 

LET X=xX1:LET Y=@:GOSUB 459000 

LET X=xX2:LET Y=@:GOSUB 44900 

LET X=-10/XS:LET Y=S/YS!:GOSUB 46000 

LET O/XS:LET Y=-S/YS:GOSUB 47000 

LET X=-18/XS:LET Y=-S/YS:GOSUB 46000 

REM SKALTIERUNG UND BESCHRIFTUNG 

IF SK=@ THEN GOTO 22430 

REM SCHRITTWEITE FUER SKALIERUNG 

LET ®D=1@TINT(LOG(X2-%1)/LOG(10)-.3) 

IF CLEN(STR®(XD)>+12"10 > XD*xXS THEN XD=xXD*5 
?GOTO 22310 

IF (LEN(STRSC(XD)>+1)*40 ¢ XD#xXS THEN XD=XD/2 
LET X0=0 

IF ¥O+1.2#xD < 2 THEN X@=X@+xXD:GOTO 22320 
REM KEINE BESCHRIFTUNG AM NULLPUNKT 


22330 
22348 
22350 
*22360 
*22365 
22370 
22380 
223390 
22900 
22410 
224920 
22430 
224498 
22450 
22460 
224978 
22480 
22490 
22500 
22518 
22515 
ee520 
22530 
225490 
2es55e 
22560 
22565 
22570 
e2e580 
225390 
#22600 
*#22605 
22610 
22620 
22630 
22640 
22650 
22660 
22670 
22680 
39910 
39920 
39930 
39940 
39950 
39968 
399708 
39975 
39980 
39985 
39990 
40000 
40010 
40020 
40030 
*40040 


IF ABS(X@) ¢ XD/2 THEN GOTO 223990 

LET X=xX@:LET Y=3/YS:GOSUB 452000 

LET X=K@:LET Y=-3/YS:GOSUB 44000 

LET AS=STR#(XO):LET R=@:LET G=2 

IF X@>@ THEN LET AS="+"+RIGHTS(AS,LEN(CAS)-1) 
LET X=XO-S*LENCAS)/XStLET Y=-18/YS 

GOSUB 482000 

IF X@-1,2*xD > X1 THEN LET X®=X®-XD:GOTO 22330 
LET AS=X$:LET R=O:LET G=2 

LET X=K2-10#LEN(AS)/XS:LET Y=12/YS 

GOSUB 48900 

IF X1 > @ OR X2@ < @ THEN RETURN 

REM Y-ACHSE 

LET X=@:LET Y=Y1:GOSUB 45000 

LET X=0:LET Y=Y2:GOSUB 44000 

LET X=-S/XS?!LET Y=-10/YS:GOSUB 46000 

LET X=5/XS!LET Y=10/YS:GOSUB 47000 

LET X=5/XS:LET Y=-18/YS:GOSUB 46900 

REM SKALIERUNG UNO BESCHRIF TUNG 

IF SK=@ THEN RETURN 

REM SCHRITTWEITE FUER SKAL IERUNG 

LET YD=10tINTCLOG(Y2-Y1>/LOG¢(10)-.3) 

IF YD*YS < 20 THEN YD=YD*100:GOTO 225528 

IF YD*YS > 68 THEN YD=YD/72 

LET Yo=0 

IF YO+1.2*YD < Y2 THEN LET Y®=Y@+YD:GOTO 22560 
REM KEINE BESCHRIFTUNG AM NULLPUNKT 

IF ABS(Y@) < YD/2 THEN 22630 

LET Y=Y@:LET X=-3/xS:GOSUB 45000 

LET Y=Y@:LET *=3/xXS:GOSUB 44900 

LET AS=STR#(YO):LET R=O:LET G=2 

IF Y@>@ THEN LET AS="+"+RIGHTS(AS,LENCAS)-1) 
LET X=8/XKS:LET Y=Y0-6/YS 

GOSUB 48900 

IF Y@-1.2*YD > Y1 THEN Y@=Y@-YD:GOTO 22570 
LET AS=Y$:LET R=1:LET G=2 

LET X=-12/XS:LET Y=Y2-104LEN(CAS)/YS 

GOSUB 48008 

RETURN 

REM 

REM OOOO IO IOI III IO IO 
REM se EINFACHE KOMMANODOS #* 
REM IOI OOOO OO 
REM 

REM IN DIESER SCHALE BENUTZTE VAR IABLEN: 

REM 

REM AS,E7,E8,18,J0,31,0,0%,D0Y,NX,NY,PE 

REM R,XAX, YA%,XN%,YN%,2%,22%0,) 

REM X,Y,%1,Y1,%2,Y2,X%H,YH,XJ,YI 

REM XM,YM,X%@,Y@,XS,YS,XY 

REM 

REM *x** HOME #4 

REM 

GOSUB 539000:REM STIFT HOCH 

LET XJ=@:LET YJ=0 

IF USR(E7)=1 AND USRCES8>=1 THEN GOSUB 57062 
7GOTO 40040 


*42050 
*48060 
*40070 
*40080 
40030 
40108 
40110 
90120 
90130 
40140 
41000 
91020 
41030 
41040 
41850 
41060 
42000 
92020 
42030 
920490 
92050 
43000 
43010 
43020 
43030 
43040 
43050 
43060 
43078 
43080 
44000 
449010 
449020 
44030 
44040 
44950 
44055 
44057 
44060 
449070 
44080 
449038 
44100 
449110 
44120 
*449130 


49140 
44150 
44160 
44170 

*44180 
44199 
44200 
44210 
44220 


IF USRCE7)=1 THEN GOSUB 51958:GOTO 40850 
IF USR(E7>=8 THEN GOSUB S@05@:GOTO 49e6a 
IF USR(E8)=1 THEN GOSUB 53858@:GOTO 40070 
IF USR(E8>=@ THEN GOSUB 52050:GOTO 40080 
GOSUB 54@6@:GOSUB 54260 

LET XM=680: YmM=5Sea@ 

LET XH=0: YH=0:xS=1:YS=1 

LET XOUT=@: YOUT=0 

RETURN 

REM 

REM *** ORIGIN #4*x 

GOSUB 59008:REM STIFT HOCH 

LET X=@:LET Y=@ 

GOSUB 45000 

RETURN 

REM 

REM *** SET ORIGIN *x** 

LET XH=XH+X#XxS 

LET YH=YHtY*YS 

RETURN 

REM 

REM *** SCALE *** 

REM 

IF NOT (X1 ¢ X2@>) OR NOT CY1<Y2) 
LET XS=xXM/(X2-x1) 

LET YS=YM/¢Ye-Y1) 

LET XH=-xX1*"xS 

LET YH=-Y1ixyYsS 

RETURN 

REM 

REM *** LINE *** 

REM 

GOSUB 58000:REM STIFT AB 

LET X=INTCXHt*XS*X-xXJI+.5) 

LET Y=INTCYH*YS*Y-YJ+.5) 

REM X,Y JETZT REL.ENTFERNUNG 
REM IN PLOTTERSCHRITTEN 

REM ANZAHL PLOTTERSCHRITTE ZUM 2 IELPUNKT 
LET OX=ABS(X)!LET DY=ABS¢Y) 

LET NX=@:LET NY=@:REM SCHRITTZAEHLER 

LET D=0:REM ABSTAND ZUR OPTIMALEN GERADEN 
IF NX=DX AND NY=DY THEN RETURN 

IF ABS(DtDY) < ABSCOFDY-DX> THEN 44170 

IF ABSCD-DX> < ABS(D+DY-DX) THEN 44220 
REM DIAGONALSCHRITT 

ON 1-2*(X>@)-CY>@) GOSUB 57000,56000 
755800 ,54000 

LET NX=NX+1:LET NY=NY+1 

LET D=D+DY-DX 

GoTo 448390 

REM X-SCHRITT 

ON -¢(X%>@)+1 GOSUBS1000 ,50000 

LET NX=NxX+1 

LET D=D+DY 

GoTo 44098 

REM Y-SCHRITT 


THEN RETURN 
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#449230 
9492490 
44250 
949260 
94270 
45000 
45010 
45020 
45030 
45040 
46000 
46010 
46020 
46030 
46040 
46050 
46060 
47000 
47010 
47020 
47030 
47040 
43000 
498010 
48020 
48030 
48040 
48050 
48060 
48070 


48080 
4380390 
48100 


48110 
98120 
*498130 
48140 
498150 
48160 
48170 
48180 
481390 


48200 
98210 
498220 
48230 
498240 
48250 
98260 
498270 
48280 
48290 
48300 
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ON -C(Y>@>+1 GOSUB 53000,52000 
LET NY=NY+1 

LET D=D-DXx 

GOTO 4490390 

REM 

REM *#*# MOVE *#** 

REM 

GOSUB 59000:REM STIFT HOCH 
GOTO 44030 

REM 

REM *** RLINE *** 

REM 

GOSUB 58000:REM STIFT AB 
LET X=INTCXS*#X+.5) 

LET Y=INTCYS#Y+.5) 

GOTO 44050 


REM 

REM *** RMOVE **x* 

REM 

GOSUB 5900@:REM STIFT HOCH 
GOTO 46030 

REM 

REM *** CHAR ##* 

REM 


GOSUB 45000:REM MOVE TO X,Y 

IF AS="" THEN RETURN 

FOR 1@=1 TO LENCAS) 

LET JO=0 

LET XALT%=O8:LET YALT%=3:REM STARTPUNKT 
IF MID#CAS,10,1>=CHRS(S) THEN XNEUZ%=— 
?YNEU%=3:PEN=8:GOTO 48220 

LET 2%=Z%CASC(MIDS(AS,10,1)),JO2*LET J1=8 
IF 2%=@ THEN 48200 

LET XNEUZ%=INT(Z2%/1000>:LET YNEUZ 
=INT(Z%7100) -10*XNEUX% 

LET 2%=100%(2Z%-1000*xXNEU%-100*YNEU%) 
LET PEN=® 


IF XNEUZ% > 4 THEN LET XNEU%=XNEUX%-S:!LET PEN=~1 


GOSUB 48250 

LET XALTX=KNEU%ILET YALT%=YNEUX 

IF 2% <> @ THEN LET J1=1:GOTO 48100 
IF JO@=9 THEN GOTO 48200 

IF J1i=1 THEN LET J®=J@+1:GOTO 480890 
IF Z4CASC(MIDS(AS,10,1)9),JO+19¢>0 
THEN LET J1=1:GOTO 48100 


REM BUCHSTABE FERTIG,ZUM ENDPUNKT RECHTS UNTEN 


LET XNEU%=S!:LET YNEU“%=3:LET PEN=0 
GOSUB 482590 

NEXT 18 

RETURN 

REM VEKTOR DREHEN,STRECKEN,ZE ICHNEN 
LET X=(XNEUX-xXALT%) #G 

LET Y=(YNEUX-YALT%) #G 

IF R=1 THEN XY=X?X=-Y:Y=xyY 

IF R=2 THEN X=-X: Y=-Y 

IF R=3 THEN XY=X?xX=Y¥!Y=-xY 


48310 
*48320 
#48330 

48340 

48350 

439000 

430108 

439020 

439030 

490490 

493920 

49930 

43340 

439950 

49960 

49970 

4399380 

433985 

439390 

50000 

50010 

50020 

50030 

509040 
#50050 

50060 
#50070 

5a0so 
#50038 

50100 
#50110 

50120 

50130 

52140 

Si000 

51010 

Siaeo 

51930 

51040 
*51050 

51060 
*51070 

51080 
*510390 

51100 
#51110 

51120 

51130 

51140 

S2000 

52018 

See2eo0 

52030 

52040 
*52050 

52060 


LET X=X/XStLET Y=Y/YS 

IF PEN THEN GOSUB 46000:REM RLINE 

IF NOT PEN THEN GOSUB 47800:REM RMOVE 
RETURN 

REM 

REM *#* RCHAR *** 

REM 

GOSUB 47000:REM RMOVE *,Y 

GOTO 48040 

REM 

REM ORO OOOO RO 
REMELEMENTARE BEWEGUNGEN 
PREM ROO OOO TORO ROOF 
REM 

REM IN DIESER SCHALE BENUTZTE VARIABLEN 

REM 

REM M1...M4,E7,E8,RE,LI,E1,AU,IN,1T,MGS 


REM XJ,YJ,xXM,YM,xX0,Y 
REM 

REM *** +X-BEWEGUNG #** 
REM 

LET XJ=xJ+1 


GOSUB 61000: REM *** OUT? #44 

IF XOUT THEN RETURN 

SYS M1,LI:SYS M2,RE:SYS M3,RE 

GOTNB 6OO8O:REM ee ET 77? 448 
SYS M1,LI:SYS M2,LI:SYS M3,RE 

GOSUB 620@0:REM #** ET 77? #4 
SYS M1,RE:SYS M2,L1:SYS M3,RE 

GOSUB S00@0:REM eee ET 777 £4 
SYS M1,RE:SYS M2,RE:SYS M3,RE 

GOSUB 6@000:REM *4#* ET 77? *4* 
RETURN 

REM 

REM ##* -X-BEWEGUNG 44% 

REM 

LET XJ=xJ-1 

GOSUB 61000: REM *** OUT? *x* 

IF XOUT THEN RETURN 

SYS M1,RE:SYS M2,LI:SYS M3,RE 

GOSUB 6@000:REM #** ET 777 4#4#8 
SYS M1,LI:SYS M2,LI:SYS M3,RE 

GOSUB 6@000:REM x#* ET 777 #4® 
SYS M1,LI:SYS M2,RE:SYS M3,RE 

GOSUB 6@000:REM x** ET 777 #4#* 
SYS M1,RE:SYS M2,RE:SYS M3,RE 


GOSUB 6@O0@:REM *** ET 777 #4 
RETURN 

REM 

REM **# +Y-BEWEGUNG #** 

REM 

LET YJ=YJ+1 


GOSUB 61000: REM «x**# OUT? #4% 
IF YOUT THEN RETURN 

SYS M1,LI:?SYS M2,RE:SYS M3,RE 
GOSUB 6@000:REM *** ET 777 #4 


#52070 
S2eso 
*520390 
52100 
*52118 
Se12e0 
521308 
S5e140 
53000 
53010 
53020 
53030 
53040 
*53050 
53060 
#53070 
53080 
#530390 
53100 
#53110 
$3120 
53138 
531428 
54000 
540108 
54920 
54038 
54040 
54050 
#54060 
54070 
#549080 
54030 
#54100 
541108 
#54120 
54130 
54140 
54150 
55000 
55010 
Ssee0 
55030 
55040 
55050 
*55060 
55070 
*S5S508a 
55030 
#55100 
55118 
#55120 
551308 
#551490 
55150 
55160 


SYS M1,LI:SYS M2,RE:SYS M3,LI 
GOSUB S@@00:REM #4* ET 777 #4* 
SYS M1,RE:SYS M2,RE:SYS M3,LI 
GOSUB 60000:REM ### ET 777 #48 
SYS M1,RE:SYS M2,RE:SYS M3,RE 
GOSUB 60@00:REM #t4* ET 777 #488 
RETURN 

REM 

REM *** -Y-BEWEGUNG *** 

REM 

LET YJ=YJ-1 

GOSUB 61000: REM *** OUT? ##*% 
IF YOUT THEN RETURN 

SYS M1,RE:SYS M2,RE:SYS M3,LI 
GOSUB 60000:REM #** ET 777 #4 
SYS M1,LI:SYS M2,RE:SYS M3,LI 
GOSUB 6@800:REM kee ET 777 #ee 
SYS M1,LI:?SYS M2,RE:SYS,M3,RE 
GOSUB SQ@@OO:REM ke" ET 777 #4x 
SYS M1,RE:SYS M2,RE:SYS M3,RE 
GOSUB 68000:REM *#* ET 777 #¥* 
RETURN 

REM 

REM #** +X/+Y-DIAGONALE *##* 
REM 

LET XJ=xXJ+1:iLET YJ=YI+1 

GOSUB 61000: REM *** OUT? #**€ 
IF XOUT THEN S204 

IF YOUT THEN 58042 

SYS M1,LI:SYS M2,RE:SYS M3,RE 
GOSUB 6@000:REM *#* ET 777 4a 
SYS M1,LI:SYS M2,LI:SYS M3,LI 
GOSUB 60000:REM *** ET 777 ¥4% 
SYS M1,RE:SYS Me,LI?SYS M3,LI 
GOSUB 6Q000:REM *** ET 777 #** 
SYS M1L,RE:SYS M2,RE?SYS M3,RE 
GOSUB 60@00:REM *x* ET 777 #4x* 
RETURN 

REM 

REM *** +X%/-Y-DIAGONALE *** 
REM 

LET XJ=xXJ+1:LET YJ=YJ-1 

GOSUB 61000: REM *** OUT? *#*% 
IF XOUT THEN 53040 

IF YOUT THEN 50040 

SYS M1,RE:SYS M2,RE:SYS M3,LI 
GOSUB 60000:REM *x**x ET 777 #%*% 
SYS MI,LI:SYS M@,RE:SYS M3,LI 
GOSUB 60000:REM #*# ET 777 4% 
SYS M1,LI:?SYS M2,LI:SYS M3,RE 
GOSUB 60000:REM #** ET 777 #4” 
SYS M1,RE:SYS Me,LI:SYS M3,RE 
GOSUB 60000:REM *** ET 777 #4” 
SYS M1,RE:SYS M2,RE:SYS M3,RE 
GOSUB 68000:REM *** ET 777 #%% 
RETURN 


55170 REM 68030 RETURN 62036 DATA2379,4788,6857 ,6686 ,95849 ,6455,0,8,0,08 
56008 REM *** -xX/+Y-DIAGONALE #** *60040 PRINT CHR#(147)>7CHRS(18)>"“ACHTUNG DE- 62037 DATASSOS ,5767 ,6858 ,4594 ,8485 ,9500,0,0,0,0 
56018 REM JUST IERUNG "CHR#( 146) 62038 DATASS73 ,6354 ,5587 ,8879 ,6958,5793,9,0,0,0 
56020 LET XJ=XJ-1:LET YJ=YJ+1 69850 STOP 62039 DATAZS89 ,38877 ,0,0,0,0,0,0,0,0 

56030 GOSUB 61900: REM *** OUT? *#* S0060 REM 62049 DATASS77,7583,0,0,0,0,8,0,0,0 

56049 IF XOUT THEN GOTO 52040 6100@ REM *** OUT OF RANGE 7? £4#% 62041 DATAIS77,7563,0,0,0,0,0,0,0,0 

560850 IF YOUT THEN GOTO 51040 61010 REM 62042 DATAGSE ,3864,1884,0,8,0,0,0,0,0 

*56060 SYS M1,RE!SYS M2,LI:SYS M3,RE 61020 IF <XOUT>) OR YOUT THEN GOTO 61090 62043 DATAGSE ,2874,0,0,0,0,0,0,0,8 

‘56070 GOSUB 60000:REM *#** ET 777 44% 61030 REM LETZTE POSITION WAR INNERHALB 62044 DATAL484 ,8372,0,0,0,0,0,0,0,0 

*56080 SYS MI,LI!:SYS M2,LI:SYS M3,RE 61040 LET XOUT=xXJ ¢ @ OR XJ > KM 62045 DATAGIE ,O,9,0,0,0,0,0,0,0 

56090 GOSUB 6@900:REM *** ET 27? *4% 61050 LET YouT=YJ < @ OR YJ > YM 62046 DATAZ374,0,0,0,0,0,0,0,0, 

*56100 SYS M1,LI:SYS M2,RE:SYS M3,LI 61060 IF «xXOUT> OR YOUT THEN SGOSUB 59930 62047 DATASIOO ,8,9,0,0,9,0,0,0,0 

5611@ GOSUB 6@@Q@:REM #e* ET 777 #4 61080 RETURN 62048 DATASS?7 ,6989,9795 ,8363,5500,9,0,0,0,0 
*56120 SYS M1,RE:SYS M2,RE:SYS M3,LI 6109@ REM LETZTE POSITION WAR AUSSERHALB 62049 DATAS363 ,2379,6800,0,0,0,09,0,0,8 

56138 GOSUB 6OQ0O:REM ee ET 777 *4x 61100 LET XOUT=XJ < @ OR XJ > XM 62050 DATASES ,8998 ,9754,5393,9,0,0,0,0,0 
#561940 SYS MI,RE:SYS M2,RE:SYS M3,RE 61110 LET YouT=yYJ < @ OR YJ > YM 62051 DATAS6S ,8998 ,9786 ,7636 ,9594 ,8363,5400,0,0,0 
56150 GOSUB 6@@O:REM #ek ET 277 44% 61120 IF ¢XOUT> OR YOUT THEN RETURN 62052 DATASSSS , 7939 ,8300,0,0,0,0,0,0,0 

56168 RETURN 61130 IF MGS="EIN"THEN GOSUB 58000 62053 DATA463 ,8394 ,9687,6756 ,5999,0,0,0,0,0 
56178 REM 61150 RETURN 62054 DATASEE ,8695 ,9483 ,6354 ,5869 ,8998 ,0,0,0,0 
S7000 REM *** -xX/-Y-DIAGONALE *4* 61900 REM *** ZEICHENSATZ *** 62055 DATASSSS ,2,0,0,0,0,0,0,0,0 

570910 REM 62080 DATAQ,0,9,0,9,0,0,0,0,0 62056 DATA1657 ,5869,8998 ,9786 ,6655 ,5463,8394,9586,0,0 
57020 LET XJ=xJ-1°LET YJ=YJ-1 62001 DATAQ,2,0,0,0,0,9,89,0,9 62057 DATAISS ,8394,9889 ,6958 ,5766 ,8697,0,0,0,0 
578030 GOSUB 61000: REM *** OUT? *#* 62002 DATAG,20,8,0,0,0,9,9,0,0 62058 DATA2374,2677,0,0,8,0,0,0,0,0 

57048 IF XOUT THEN GOTO 53040 62003 DATAQ,0,0,0,0,0,0,8,0,0 62059 DATAES75 ,2473,6200,0,0,0,0,0,9,0 

5705@ IF YOUT THEN GOTO 51049 62004 DATAO,2,0,0,0,0,0,0,0,0 62060 DATAISSE ,9300,0,0,0,0,0,0,0,0 

#57060 SYS M1,RE:SYS M2,LI:SYS M3,LI 62005 DATAG,2,0,0,0,0,0,80,0,0 62061 DATASSS ,4757,9,9,0,0,0,0,0,0 

57870 GOSUB 6O00@:REM #*¥ ET 777 #4 62006 DATAG,2,0,0,0,0,0,0,0,28 62062 DATASSE ,5300,0,0,0,0,9,9,0,0 

*57080 SYS MI,LI:SYS M2@,LI:SYS M3,LI 62007 DATAD,2,0,0,0,0,9,0,0,8 62063 DATAS6S ,8998,9775,2473,0,0,0,0,0,0 

57890 GOSUB 60000:REM *#* ET 77? *#*# 62008 DATAQ,2,0,0,9,0,0,0,0,0 62064 DATA4S63 3394 ,8565 ,5667,8796,8517,5869,8998,0,0 
*#57100 SYS MI,LI:SYS M2,RE:SYS M3,RE 62009 DATAO,2,0,0,0,0,0,0,0,0 62065 DATAS679,9693 ,4555,0,0,0,0,0,0,0 

57118 GOSUB 6Q@G@0@:REM #** ET 2777 xe 62010 DATAQ,0,0,0,0,0,8,0,0,0 62066 DATAS394 ,9586 ,6636,9798,8959,1963,0,0,0,0 
#57120 SYS M1,RE'SYS M2,RE:SYS M3,RE 62011 DATA®,2@,0,0,0,0,9,0,0,90 62067 DATAIS89,6958 ,5463,8394,0,0,0,0,0,0 
57130 GOSUB GQ000:REM #4#* ET 777 #48 62012 DATA®,0,0,0,0,0,0,0,0,0 62068 DATAS394 ,9889,5919,6300,0,0,0,0,0,0 
S7148 RETURN 62013 DATAQ,8,0,0,0,0,9,0,0,9 62069 DATASSS9,3656 ,393,0,0,8,0,0,0,0 

S7159 REM 62014 DATA®,0,0,0,0,0,0,8,0,0 62070 DATASSSS ,3656,8,0,0,0,9,0,0,8 

53990 REM #*** MG-EIN #** 62015 DATA®,0,0,0,0,0,9,0,0,0 62071 DATAS889,6958 ,5463,8394,9676,0,0,0,0,0 
58010 REM 62016 DATAO,2,0,0,0,0,0,0,0,8 62072 DATASSOS ,9649,9300,9,0,0,0,0,0,0 

58920 LET MG$="EIN” 62017 DATA®,2,0,0,0,9,0,0,0,0 62073 DATA1382,2379,1989,0,0,0,0,0,9,0 

58030 IF «xXOUT) OR YOUT THEN RETURN 62018 DATA®,0,0,0,0,0,0,0,8,0 62074 DATASE3 ,7384 ,8929,9900 ,2,0,0,0,0,0 
*53040 SYS INIT 62019 DATAG,0,0,0,0,0,0,0,0,8 62075 DATASS®E ,S906 ,9300,0,80,0,0,0,0,0 

58050 FOR Z=1 TO 4@@: NEXT 62020 DATAO,8,0,0,09,0,9,0,0,8 62076 DATASSS ,9300,0,09,0,0,0,0,0,0 

*58060 SYS M4,EIN 62021 DATA®,8,0,0,0,0,0,0,0,8 62077 DATASS7E ,9993,0,0,0,0,0,0,0,0 
*#58070 FOR Z=1 TO 190:SYS M4,EIN:NEXT 62022 DATAQ,0,0,0,0,0,0,0,0,0 62078 DATASSS3 ,9900,0,0,0,0,0,9,0,9 

58880 RETURN 62023 DATAQ,2,0,0,0,0,0,8,0,8 62079 DATASSS ,6989 ,9894 ,8363,5400,0,0,0,8,0 
58090 REM 62024 DATAG,0,0,0,0,0,0,0,0,8 62080 DATA1369,989,9897 ,8666 ,0,0,0,0,0,0 

59909 REM **#* MG-AUS #4#* 62025 DATAQ,28,0,0,0,0,0,0,0,8 62081 DATASSS ,6989 ,9894 ,8363 ,5425,9300,0,9,0,0 
59018 REM 62026 DATAG,0,0,0,0,0,0,0,0,0 62082 DATA1369 ,989,9897 ,8666 ,2693,0,8,0,0,0 
59020 LET MGS="AUS" 62027 DATAG,2,0,0,0,0,0,0,0,0 62083 DATASS3 ,8394 ,9586 ,6657 ,5869,38998,0,0,0,0 
*59030 SYS M4,LINKS 62028 DATAQ,9,0,0,8,0,0,0,8,0 62084 DATA2379 ,999,0,9,9,8,0,0,0,0 
#59048 SYS M4,AUS 62029 DATAG,8,0,0,09,0,0,0,0,0 62085 DATASS4 ,6383,9499,9,0,0,0,0,0,8 

59050 FOR 2=1 TO 190:NEXT 62030 DATAO,8,0,0,0,0,8,8,80,8 62886 DATAS7T3,3900,0,9,0,0,0,0,0,0 

S3060 RETURN 62031 DATAG®,0,0,0,0,0,0,0,0,0 62087 DATASSE ,6375,8396 ,9900,0,0,0,0,0,0 

59970 REM 62032 DATAG,8,0,0,0,0,0,8,0,9 6208s DATASS3,4953,0,0,0,9,0,0,0,0 

80000 REM *#* ET-GEORUECKT #4*% 62033 DATA2975,2473,0,0,9,9,0,0,0,0 62083 DATAS76,7325 ,9900,9,9,9,0,0,0,0 

60010 REM 62034 DATASS87,1967,0,0,9,0,0,0,0,8 62098 DATASSS,5393,0,0,8,0,0,09,0,0 

*600920 IF (USR(E7)=@ AND XJ <> @) OR CUSR(E8)=0 62035 DATA1369,3983,49757,595,0,0,0,0,0,0 62091 DATASS79,9693,4555,958,49398,9,0,0,9,9 


AND YJ <>@> THEN GOTO 690498 
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62092 DATAGS7 6888 ,9794 ,8363 ,5409 ,5849,9800,0,0,0 62148 DATAQ,0,0,0,0,0,0,0,0,0 62204 DATAD,2,0,8,8,0,0,0,0,0 
682093 DATASS4 ,6383,9499,1968,3988,0,0,9,0,0 62149 DATAG,0,0,0,8,0,9,0,0,0 62205 DATAQ,2,9,9,9,8,8,9,9,0 
620394 DATA779,97200,0,0,0,0,0,0,0,9 62158 DATA®,2,8,0,9,0,0,0,0,0 62206 DATAQ,2@,8,0,0,0,9,0,9,9 
622895 DATAS2,2,29,0,0,0,0,0,0,0 62151 DATA®,0,0,0,0,0,0,0,0,0 62207 DATAQ,2,0,0,0,9,9,0,0,0 
62096 DATA3979,7887,0,0,0,0,0,0,0,8 62152 DATAQ,0,8,0,0,0,0,0,0,0 62208 DATA®,2,28,0,8,0,0,9,0,9 
62097 DATASE7 ,8796 ,9345 ,6554 ,6383 ,9408,0,0,0,0 62153 DATAG,0,0,0,0,0,0,0,0,9 62209 DATAQ,2,28,0,9,8,0,9,0,0 
62098 DATASS3 667 ,8796 ,9483,6354,0,0,0,0,0 62154 DATAG,0,0,0,9,9,0,0,0,0 62218 DATAQ,9,8,8,0,0,0,8,0,0 
620939 DATAS687 S756 ,5463 ,8394,0,0,9,9,0,0 62155 DATAG,2,0,0,0,0,0,0,0,0 62211 DATA®,0,9,8,9,0,9,9,0,0 
62100 DATA4993, 4687 ,6756 ,5463,8394 ,8,0,0,0,0 62156 DATAG,0,0,0,9,0,8,0,9,0 62212 DATAQ,0,8,8,0,0,9,8,0,0 
62101 DATASSS ,9687 ,6756 ,5463,8394 ,0,0,0,0,0 62157 DATAG,2,0,0,0,0,0,0,0,0 62213 DATAQ,0,0,8,9,0,9,0,0,0 
62102 DATA2378 ,8999,3666 ,0,0,0,0,0,8,0 62158 DATAQ,0,0,0,0,0,0,0,0,0 62214 DATA®,2,8,8,8,0,0,8,0,0 
62193 DATA261,8192,9687 ,6756 ,5463 ,8394 ,8,0,0,8 62153 DATAG,2,0,0,9,0,0,0,0,0 62215 DATAG,2,0,0,0,0,9,0,0,8 
62104 DATASSO6 ,6787 ,9693,0,0,0,0,0,0,0 62168 DATAG,2,0,0,0,0,8,0,0,0 62216 DATA®,2,9,0,9,0,0,8,0,9 
62105 DATAS363,2377,6728,7909,8,8,8,0,9,9 62161 DATAG,8,0,0,0,0,9,0,0,0 62217 DATAG,28,0,0,0,0,0,0,0,9 
62106 DATA161,7277,6728,7990,0,0,0,0,9,0 62162 DATAQ,0,0,0,0,0,0,0,9,0 62218 DATA®,0,0,8,9,0,9,8,0,0 
62107 DATAI963,1597,1593,0,0,9,9,0,9,0 62163 DATAG,2,0,0,0,0,0,8,0,9 62219 DATA®,2,0,0,9,8,8,8,0,0 
62108 DATA3SO3 ,3363 ,2379 6980 ,8,0,8,0,9,8 62164 DATAG,2,0,0,9,0,0,8,0,0 62220 DATAO,0,0,0,8,0,0,0,0,0 
62109 DATAS787,9693 ,2377 ,0,0,0,0,8,0,0 62165 DATAQ,8,0,0,0,0,0,0,0,0 62221 DATAQ,2,0,0,0,0,0,0,0,0 
62110 DATA7S3,667 ,8796 ,9300,0,0,8,0,0,0 62166 DATAQ,0,0,0,0,0,0,0,0,0 62222 DATAQ,0,0,0,08,0,0,0,0,9 
62111 DATA456 6787 ,9694 ,8363 ,5400,0,0,9,0,0 62167 DATAQ,20,0,0,0,0,0,0,0,0 62223 DATAQ,0,0,0,0,0,0,0,0,0 
62112 DATA1S7,667,8796 ,9483,6354,0,0,0,0,0 62168 DATAG,2,0,0,0,0,9,0,0,0 62224 DATAGQ,0,29,09,8,8,0,0,0,0 
62113 DATA4197,4687,6756,5463,8394 ,0,0,9,0,0 62169 DATAG,0,0,0,0,0,0,0,0,0 62225 DATAG,2,0,9,0,0,0,0,0,0 
62114 DATAS796 ,6787 ,9600,0,0,0,9,0,0,0 62170 DATAO,0,0,0,0,0,0,0,0,0 62226 DATAG,2,0,0,0,0,0,9,0,9 
62115 DATA463,8394 ,8565,5667 ,8796,0,0,0,0,0 62171 DATA®,2,0,0,0,0,0,8,0,0 62227 DATAG,0,0,9,0,0,0,0,0,0 
62116 DATA1686 ,2973,38300,0,0,0,0,0,0,0 62172 DATAG,0,0,0,0,0,8,0,0,0 62228 DATAQ,0,9,9,0,0,8,0,0,0 
62117 DATA7S4,6383,9447,9300,0,0,9,9,9,0 62173 DATAG,8,0,0,9,0,0,0,0,0 62229 DATAG,2,0,0,0,0,0,0,0,8 
62118 DATA773,9790,0,9,0,0,0,0,8,8 62174 DATAG,2,0,9,0,0,0,0,9,0 62230 DATAQ,0,0,0,0,0,0,0,0,0 
62119 DATA7TSS ,6375 ,8395,9700,9,0,0,0,0,0 62175 DATAG,8,0,0,0,0,8,0,0,0 62231 DATAG,0,0,9,0,8,0,0,0,9 
62120 DATA793,397,9,0,0,9,9,0,0,0 62176 DATAG,9,0,0,0,0,0,0,80,0 62232 DATAG,0,0,0,0,0,0,0,0,0 
62121 DATA773,4761,0,0,0,0,0,0,0,0 62177 DATAG,2,0,0,0,0,0,0,0,0 62233 DATAQ,0,0,0,0,0,9,8,0,0 
62122 DATA797,5393,0,0,9,0,0,0,0,08 62178 DATAG,8,8,0,0,0,0,0,8,0 62234 DATAG,0,0,0,0,0,0,0,0,0 
62123 DATASG7 ,8796 ,9345 ,6554 ,6383 ,9419,6839 ,8800,0,0 62173 DATA®,0,0,0,0,0,8,0,0,0 62235 DATAQ,0,0,0,0,0,0,0,0,0 
62124 DATAISS 6787 ,9694 ,8363,5439,8819,6800,9,0,0 62188 DATAG,2,0,0,0,9,0,8,9,0 62236 DATAQ,0,9,89,9,0,0,0,0,0 
62125 DATAS988,, 1968 ,754 6383 ,9447 ,9300,0,0,8,0 62181 DATAQ,0,0,0,0,8,0,0,0,8 62237 DATAG,2,0,0,0,0,0,0,0,0 
62126 DATASS6S ,8998 ,9786 ,7636 ,9594 ,8373,6400,0,0,0 62182 DATA®,0,0,0,0,0,8,0,0,0 62238 DATAG,0,0,0,0,0,0,8,0,0 
62127 DATAG,0,0,9,0,0,0,0,9,0 62183 DATAQ,0,0,0,0,0,09,0,0,0 62239 DATAQ,0,0,0,0,0,0,0,0,0 
62128 DATAQ,0,0,0,0,0,0,0,0,0 62184 DATAG,2,0,0,0,0,0,0,0,0 62248 DATAQ,0,8,0,0,0,0,0,0,0 
62129 DATA®,0,0,9,9,0,9,0,0,0 62185 DATAQ,2,0,0,0,0,0,0,0,0 62241 DATAQ,2,9,8,0,0,9,8,0,0 
62130 DATA®,8,0,8,0,0,0,0,0,0 62186 DATAQ,8,0,0,0,0,0,0,0,0 62242 DATAQ,0,9,8,9,0,0,8,0,0 
62131 DATAG,2@ 0,9,0,0,0,8,0 62187 DATAD,2,0,0,0,0,0,0,0,0 62243 DATAG,0,0,0,0,0,8,0,0,8 
62132 DATAG,8,0,9,0,0,0,0,0,8 62188 DATAO,0,8,0,0,0,0,0,8,0 62244 DATAG,0,0,0,0,0,0,0,0,90 
62133 DATAG,2,0,0,0,0,0,0,0,0 62189 DATA®,0,0,0,0,0,0,0,0,8 62245 DATAQ,2,0,9,0,8,0,0,0,0 
62134 DATAG,28,0,0,0,9,9,0,0,9 62198 DATAG,8,0,0,0,0,0,0,0,0 62246 DATAG,2,8,0,0,0,0,0,0,3 
62135 DATAG,@,0,0,0,0,0,0,0, 62191 DATAG,0,0,0,0,0,0,9,0,9 62247 DATAG,2,9,0,0,0,0,0,0,0 
62136 DATAQ,2@,0,0,0,0,0,0,8,0 62192 DATAG,0,0,0,0,0,8,8,0,0 62248 DATAG,0,0,0,0,0,0,0,0,9 
62137 DATAG,0,0,0,0,0,0,0,0,0 62193 DATA®,0,0,0,0,0,0,0,0,8 62243 DATAG,2,0,9,9,0,0,9,0,8 
62138 DATAG,0,8,0,0,9,0,0,0,9 62194 DATAG,O,0,0,9,0,0,0,0,0 62250 DATAQ,0,0,0,0,0,8,8,0,9 
62139 DATAG,0,0,0,0,0,0,0,0,8 62195 DATAQ,0,0,0,0,0,9,0,0,0 62251 DATAG,2,0,0,0,0,0,0,0,0 
62140 DATAQ,9,0,0,0,0,9,0,0,0 62196 DATAO,2,0,0,0,0,0,0,0,0 62252 DATAG,2,0,8,0,0,0,0,0,0 
62141 DATAG,0,0,0,0,0,0,0,0,0 62197 DATAQ,0,0,0,0,0,0,0,0,0 62253 DATA®,28,0,0,0,0,8,0,0,8 
62142 DATAG,0,0,0,0,8,0,0,0,0 62198 DATAQ,0,0,0,0,0,0,0,0,0 62254 DATAQ,2,8,8,8,0,0,0,0,0 
621943 DATAG,2,0,0,0,0,0,0,0,9 62199 DATAG,8,0,0,0,0,0,0,0,8 62255 DATAG,8,0,0,0,0,8,0,0,8 
62144 DATA®,0,8,9,0,0,0,0,0,0 52200 DATAG,0,0,0,0,0,80,0,0,0 63000 DEF FN X¢Z2)=135+10%2 
62145 DATAG,2,0,9,0,0,0,0,0,0 62201 DATAQ,2,0,0,0,0,9,0,0,0 63010 DEF FN Y¢Z2)=150-10%2 
62146 DATAQ,0,8,0,0,0,0,0,8,0 62202 DATAQ,2,0,8,0,0,0,9,9,8 63015 REM EINSPRUNG INS PROGRAMM MIT GOTO Ss30a@ 
62147 DATAG,0,0,0,0,0,0,0,0,0 62203 DATAQ,2,0,0,0,0,0,0,0,0 *63020 PRINT CHR#(147) 
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Prog. FUNCTION 


63030 PRINT" CHARACTER DESIGN PROGRAMM " 63578 RETURN 1008 DEF FNY¢X)=SINCK) *EXPC-X/10) 
63032 PRINT 63580 IF I%=19 THEN GOTO 63670 1010 LET FS="SINCK)*EXP (-K710)" 
63035 PRINT"PROGRAMM BENOETIGT 'SIMONS BASIC!" 63590 IF AS " THEN S%(1%2=50 1020 LET XA=@: LET XE=62.8 

63040 PRINT:PRINT" BED IENUNG " 63600 LET SKC IMD =SKC IX) +1GaKt+y 1930 REM 

63058 PRINT:PRINT" CRSR HOCH SAUF 63610 LET IM=1%+1 1108 REM *** PROGRAMM “FUNCTION” x#* 
63868 PRINT:PRINT“ CRSR RUNTER =: AB *63620 CIRCLE FN X(X),FN YC(Y),2,2,0 1119 REM 

63070 PRINT:PRINT" CRSR LINKS +: LINKS *63630 IF AS="L" THEN LINE FN X(X0),FN YCYO) 1120 REM FUNKTIONS-MAxXIMUM UND -MINIMUM BERECHNEN 
63088 PRINT:PRINT" CRSR RECHTS : RECHTS 7FN KOX),FN YC¥),1 1130 LET MI=FNYCKAD 

63090 PRINT:PRINT" L ?LINIE VOM LETZTEN PUNKT" 63640 LET XO=x:LET YO=Y 11948 LET MA=FNY‘XAD 

63100 PRINT:PRINT" M '=BEWEGUNG V. LETZTEN PUNKT” #63650 CIRCLE FN X¢(XK),FN YCY),2,2,1 115@ FOR X=KA TO XE STEP (XE-xA)/200 
63118 PRINT:PRINT" C 'BILDSCHIRM LOESCHEN" 63668 RETURN 1168 IF FNYCX)>MA THEN LET MA=FNY¢(X) 
63120 PRINT?PRINT" CR  !ZEICHEN UEBERNEHMEN"™ 63670 FOR I=@ TO 18 STEP 2 1170 IF FNYCX2<MI THEN LET MI=FNY<¢X) 
63138 PRINT!PRINT" X 'ABBRUCH ":PRINT 63680 IF S%C1)=@ THEN D#(1/2)="0"!NEXT:GOTO 63770 1188 NEXT * 

63148 DIM Sx( 19) 63690 LET AS=STR#(S%(1)) 1190 LET X1=KA-CXKE-XA)/20 

63159 INPUT" ZEICHENNUMMER (0-255)"72N 63700 LET BS=STRS(S%C(1+1)> 1200 LET X2@=xE+(XE-XA) “20 

63160 IF ZN<@ OR ZN>255 THEN GOTO 63150 63710 IF LENCA®)=1 THEN AS="0"+AS 1210 LET Y1=MI-C(MA-MI>/20 

63170 FOR I=@ TO 19:LET S%¢1)=@:NEXT:LET 1%=0 63720 IF LEN(CBS)=1 THEN BS="0" +B 1220 LET Y2=MA+(MA-M1) 720 

*63180 HIRES1,0 63730 D$(1/2)=AS+BS 1230 LET XA=10: LET XE=xKM-10 

63190 FOR Y=@ TO 9 63740 LET AS ‘LET BS 1240 LET YA=1 LET YE=YM-10 

63208 FOR X=@ TO 4 63750 LET D$¢(1/2)=MIDS(0S(1/2),2,2)>+MIDS(0#(1/2),5,2) 1250 LET X#="x" 

*6321@ PLOT FN K(X),FN YCY),1 63760 NEXT 1260 LET Y#=F# 

63220 NEXT 63770 LET AS=STR#(62000+ZN)+"DATA"+D#(O)+"," 1278 LET SK=1 

63230 NEXT +DSC1)4+","4DS(20+","4+DS(32+","4+DBC4) 1280 GOSUB 22000:REM ACHSEN ZEICHNEN 
63240 LET X=@:LET Y=3 63780 AS=ASt+","+40S(5)+","40E(6)+","+0SC7)+"," 1290 LET X=X1+¢X2-x1)/22 

63250 LET XO=x:LET YO=Y +DS(38)+","+DS(9) 1300 LET Y=FNYCX) 
*63260 CIRCLE FN X¢X),FN YC(¥),2,2,1 83790 PRINTA® 1310 GOSUB 4580@:REM ZUM STARTPUNKT 
63278 GET AS: IF AS="" THEN 63270 1320 FOR XO=K1+¢%2-K1)/22 TO X2-CK2-K1>/22 
*63280 IF AS=CHR#(145) THEN GOSUB 63380 STEP (X2-k19/220 

*63290 IF AS=CHR#(17) THEN GOSUB 63430 1338 LET X=X@: LET Y=FNY¢(X) 
*63300 IF AS=CHR#(29) THEN GOSUB 63480 1340 GOSUB 44000 
*63310 IF AS=CHR#C157) THEN GOSUB 63530 1350 NEXT XO 

63320 IF At="C" THEN GOTO 63172 1368 GOSUB 40000 


63330 IF AS="xX" THEN STOP 1370 END 
63349 IF A$=CHR#$(13) THEN GOTO 63670 
63359 IF A®="M" THEN GOSUB 63580 
6336@ IF A®="L" THEN GOSUB 63580 
63378 GOTO 63270 
63380 IF Y=9 THEN RETURN 

*63390 CIRCLE FN X¢K),FN YC¥),2,2,0 
63400 LET Y=Y+1 

#63410 CIRCLE FN X(X),FN YCY),2,2,1 
63428 RETURN 
63430 IF Y= THEN RETURN 

*63440 CIRCLE FN X¢(X),FN Y¥¢Y),2,2,9 
63450 LET Y=Y-1 

*63460 CIRCLE FN X(X),FN YCY),2,2,1 
63478 RETURN 
63480 IF X=4 THEN RETURN 

*6349@ CIRCLE FN X¢X),FN YCY),2,2,0 
63500 LET X=Xx+1 

*63510 CIRCLE FN X(X),FN YCY),2,2,1 
63520 RETURN 
63530 IF X=@ THEN RETURN 

#63540 CIRCLE FN X(X),FN YCY),2,2,0 
63550 LET X=x-1 

¥6356@ CIRCLE FN X(X),FN YCY),2,2,1 


Prog. PARAM.F 


1000 
1018 
1020 
1030 
10408 
1050 
1060 
10708 
1080 
1998 
1100 
1110 
1120 
1130 
1140 
1158 
1160 
1170 
1180 
1190 
1200 
12108 
12290 
1238 
1248 
12508 
1260 
1271 
1289 
1290 
1308 
1310 
1320 
1338 
1348 
1358 
1368 
13728 
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DEF FNX¢<T)=COS(T) 
DEF FNY<T)=SINCT) 


LET F#="KREIS" 

LET TA=@: LET TE=6.28: LET TS=0.1 
REM @ BIS @*a IN SCHRITTEN VON @.1 
LET AX=1: LET SK=1 

REM ACHSEN EINZEICHNEN UND SKALIEREN 
LET XA=-1.1! LET XE=1.1 

LET YA=S-1.1° LET YE=1.1 

REM 

REM *** PROGRAMM "PARAM.F" *## 

REM 


REM GLEICHE SKALIERUNG FUER X% UND Y 
REM RECHTECK XA,YA,%E,YE IN PAPIERMITTE 


IF CKE-xXA)*YM>CYE-YA*XM THEN GOTO 11990 
LET yy: M/ CYE-YAD LET YH=-YA*YS 

LET XS=YS: LET XH=C(XM-(xXEtXAD *XS) 72 
GOTO 1210 

LET XS=xKM/¢(XE-KAD? LET XH=-xAeX 

S: LET YH=(YM-CYE+YA) *YS) 72 
THEN GOTO 1250 

A: LET X@=xE: LET Y1=YA? LET Y2=YE 
LET X®=F$: LET Y#=" " 

GOSUB 22008 

LET X=FNX<¢TA> 

LET Y=FNY<TA? 

GOSUB 495098: REM ZUM STARTPUNKT 

FOR T=TA TO TE STEP TS 

LET X=FNeCT) 

LET Y=FNY(T> 

GOSUB 44908 

NEXT T 

LET X=FNX CTE? 

LET Y=FNY(TE) 

GOSUB 44998 

GOSUB 49000 

END 


Prog.D3 


1000 
1010 
1020 
1940 
1050 
1960 
1070 
1080 
*1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1198 
1200 
1210 
1220 
1238 
12490 
1250 
1260 
1270 
1280 
1285 
1299 
1300 
1310 
1320 
1330 
1340 
1350 
1368 
1370 
1380 
1390 
14900 
1410 
1420 
1438 
14490 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


REM *** PROGRAMM 'D3' #*x* 

REM 

DIM X(100,3) 

LET 1=8 

READ XC1,1),X(1,2),X€1,3),%C1,9) 

IF X¢€1,@)=-1 THEN GOTO 1100 

LET I=I+1 

GoTo 1850 

PRINT CHR#(147) 
PRINT"PROJEKTIONSWINKEL (IN GRAD):" 
INPUT" THETA: "TH? LET TH=ATN(1)*TH/45 
INPUT"PHI = "7PH: LET PH=ATN(1)#PH/45 
LET N1=SINCTH) *COS¢PH) 

LET N@=SINCTH) *SINCPH) 

LET N3=COS¢TH) 

LET N@=SQR¢(N14N1 +N2*Ne2 ) 

LET I=@: REM BILDGROESSE FESTSTELLEN 
IF XCI,@)=-1 THEN GOTO 1280 

GOSUB 1430 

IF 1=@ THEN LET XA=X:XE=X? YA=Y: YE=Y:GOTO 1260 
IF X<XA THEN LET XA=x 

IF X>XE THEN LET XE=x 

IF Y<YA THEN LET YA=Y 

IF Y>YE THEN LET YE=Y 

LET I=I+t1 

goto 11390 

REM SKALIERUNG GLEICH AUF BEIDEN ACHSEN, 
REM BILD IN PAPIERMITTE 

IF CXE-XA) *YM> CYE-YA)*xXM THEN GOTO 1339 
LET YS=YM/CYE-YA): LET YH=-YAxYS 

LET XS=YS: LET XH=(XM-(XE+XA) *xXS)72 
GOTO 1358 

LET XS=KM/CXE-xXA)? LET XH=-xXAxXS 

LET YS=XS! LET YH=(YM-CYE+YA2*YS)/2 
LET 1=0 

IF ®€1,@)=-1 THEN GOTO 1419 

GOSUB 1430 


ON X%¢(1,8)+1 GOSUB 45008,44900: REM MOVE ODER LINE 


LET I=I+t1 

GOTO 1368 

GOSUB 49000 

END 

REM PROJEKTION AUF EBENE SENKR. (N1,N2,N3> 
IF ABS(N@)<®@.01 THEN GOTO 1489 

LET X=CXCI,1)*N2@-XC1,2)*N1)/NO 


LET Y=CXC1,3)-CXCI, 1) *#N1 +X 01,2) *#N2+X (1,3) *N3)*N3)/NO 


GOTO 1518 

REM PROJEKTIONSRICHTUNG PARALLEL Z-ACHSE 
LET X=XC1I,1) 

LET Y=xKC1,2) 

RETURN 


62300 
62301 
62302 
62303 
62304 
62305 
62306 
62307 
62392 
62309 
62310 
62311 
62312 
62313 
62314 
62315 
62316 
62317 
623138 
62319 
62320 
62321 
62322 
62323 
62324 
62325 
62326 
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62323 
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62331 
62332 
62333 
62334 
62335 
62336 
62337 
62338 
62339 
62340 
82341 
62342 
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62345 
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623497 
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62359 
62351 
6e352 
§2353 
62354 
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KANTEN DES DREIDIMENSIONALEN OBJEKTES 


DIE ERSTEN DREI ZAHLEN SIND X-, Y- 
UND Z-KOORDINATEN DER ECKPUNKTE DES 
KOERPERS. DIE 4. ZIFFER IST 1, WENN 
DIE ECKE MIT DER VORANGEGANGENEN 
DURCH EINE KANTE VERBUNDEN IST, 
SONST @. FUER DEN LETZTEN TABELLEN- 
WERT IST SIE -1. 
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10,2,0,1 

10,18,0,1 
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62356 
62357 
6e358 
62353 
62360 
62361 
62362 
62363 
62364 
62365 
62366 
82367 
62368 
62369 
62370 
62371 
62372 
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62374 
62375 
62376 
62377 
62378 
62379 
62380 
62381 
62382 
62383 
62384 
62385 
62386 
62387 
62388 
62389 
62390 
62391 
62392 
62393 
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62396 
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12,0,11,1 
12,0,9,1 
12,0,11,08 
12,12,11,1 
12,12,9,1 
12,12,11,0 
@,12,11,1 
@,12,9,1 
@,12,11,8 
8,0,11,1 
Q,0,0,-1 


Prog. SCANNER 


*500 
510 
Seo 
530 
540 
558 
560 
570 
sso 
530 
600 

#610 
620 
630 
640 
650 
660 
670 
680 
6390 

1000 
1010 
1020 
1930 
1040 
1050 
1060 
1070 
1080 
1030 
1100 

*1110 
1120 
1138 
1140 
1150 
1160 
1170 
1180 
1198 

*1200 

#1210 

*1220 

#1230 
1248 
1258 
1260 
1270 
1280 

#1285 
1290 
1300 
1310 
1320 
1330 
1340 


sys INIT 
REM 
REM PLOTTER KOMMANDOS: 
REM 40000 HOME 
REM PLOTTER BEWEGUNGEN: 
REM 58000 +X-SCHRITT 
REM 51000 -X-SCHRITT 
REM 52000 +Y-SCHRITT 
REM 53000 -Y-SCHRITT 
REM 68000 ENDTASTER? 
REM 
PRINT CHRS(147) 
PRINT“F ISCHERTECHNIK * 
PRINT “COMPUT ING" 
PRINT 
PRINT"“SCANNER-INITIALISIERUNG " 
GOSUB40000 :REM HOME 
FOR Z=1 TO 4 
GOSUB 50000 : GOSUB 52000 
NEXT 2 

REM FISCHERTECHNIK COMPUTING 

REM 

REM SCANNER 

REM 

REM COPYRIGHT (C> ARTUR FISCHER FORSCHUNG 1985 
REM 

REM FUNKTION 

REM GRAUWERTAUFZEICHNUNG MIT FOTOWIDERSTAND 
REM UND ABSPEICHERUNG AUF DISKETTE. 

REM BILDDATEN 

DIM G%(159,99) 

LET E=8 :REM SPEICHERMEDIUM DISKETTE 

REM FUER KASSETTE: LET E=1 SOWIE ZEILEN 1470, 
REM 1488, 1590]UND 1610-1678 LOESCHEN. 

LET GH=®@:GL=255 :REM HELLIGKEITSGRENZEN 
PRINT:PRINT"VORLAGE AUF SCANNER LEGEN,” 
PRINT“LINKE UNTERE ECKE UNTER ABTASTKOPF. " 
PRINT:PRINT“ABTASTKOPF MIT CURSORTASTEN IN RECHTE” 
PRINT"OBERE ECKE STEVEREN., FERTIG: >RETURN<” 
GET S# 

IF S#=CHR#(29) THEN GOSUB 590000 

IF S$=CHR#(157>) THEN GOSUB 51900 

IF S#$=CHR$(17) THEN GOSUB 53000 

IF S%=CHR#(145) THEN GOSUB 52000 

IF S$=CHR$(13> THEN GOTO 1268 

GoTo 1190 

LET XE=INTCXJ74)-1 =REM BILDRAND 

LET YE=INTCYJ/4)-1 

PRINT!PRINT“ACHTUNG! AUFZEICHNUNG LAEUFT!" 
G%SUSRCEY>? REM ERSTER WERT WIRD VERWORFEN 
REM ABTASTSCHLE IFE 

FOR Y=® TO YE 

REM HINLAUF 

IF Y=INTCY/2)*2 THEN GOSUB 2000 

REM RUECKLAUF 

IF Y>INTCY/2>*#2 THEN GOSUB 3000 


13590 
1360 
1378 
1388 
1398 
*14908 
14910 
1420 
1438 
1449 
*1450 
#1460 
#1970 
*14930 
*14990 
*1500 
#1510 
*1520 
1530 
1540 
*1550 
1560 
1578 
*15380 
*1590 
1600 
1610 
*1620 
*1630 
*1640 
1650 
1660 
1670 
2000 
2010 
2020 
2030 
20490 
2050 
2060 
2070 
3000 
3010 
3020 
3030 
3040 
3050 
3068 
3070 
4000 
*42010 
4020 
*42930 
499490 
4050 
*4060 


REM ZEILENSCHAL TUNG 

FOR 2=1 TO 4 

GOSUB 53000 

NEXT Z 

NEXT Y 

SYS INIT +REM ALLES ABSCHALTEN 
REM ABSPEICHERN 
PRINT:PRINT"DATENAUFZEICHNUNG BEENDET!" 
INPUT "“DATENF ILE "7 FS 

IF FS="* THEN END 

OPEN 15,8,15 

OPEN 1,£,2,F$+",W" 
INPUT#15,FF FBS 

IF FF>® THEN GOTO 1620 
PRINT#1 XE 

PRINT#1,YE 

PRINT#1,GH 

PRINT#1,GL 

FOR Y=® TO YE 

FOR X=8 TO XE 

PRINT#1,G%(%,Y? 

NEXT X 

NEXT Y 

CLOSE 1 

CLOSE 15 

END 

REM FEHLERMELOUNG 

CLOSE 1 

CLOSE 15 

PRINT“OISK FEHLER: “7;FBS 
INPUT"NEUVER VERSUCH (J/N)"?S® 
IF S#="J" THEN GOTO 1430 

END 

REM HINLAUF 

FOR X=XE TO @ STEP -1 

GOSUB 40900:REM GRAUWERT MESSEN 
FOR 2=1 TO 4 

GOSUB 51900 :REM -X-RICHTUNG 
NEXT Z 

NEXT X 

RETURN 

REM RUECKLAUF 

FOR X=0 TO XE 

FOR 2=1 T0 4 

GOSUB 50000 :REM +X-RICHTUNG 
NEXT 2 

GOSUB 4000:REM GRAUWERT MESSEN 
NEXT x 

RETURN 

REM GRAUWERT MESSEN 

SYS INIT ?REM MOTOREN AUS 

FOR Z=0 TO 20 

SYS M4,EIN :REM LAMPE EIN 

REM UND VOLLE HELLIGKEIT ABWARTEN. 
NEXT Z 

GX=USRCEY) 
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Prog.B &W 


*4070 SYS M4,AUS :REM LAMPE AUS 52100 GOSUB 6000@:REM *** ET 2777 *** 1980 REM FISCHERTECHNIK COMPUTING 
*49080 IF G%=@ THEN LET G%=255 :REM NUR C64,VC20,ACORN *#52110 SYS M1,RE:SYS M2,RE:SYS M3,RE 1010 REM 

4090 IF G%>255 THEN LET G%=255 S212@ GOSUB 68000:REM *** ET 777 #** 1020 REM BILDAUSWERTUNG 

4180 IF G%>GH THEN LET GH=G? 52130 RETURN 1030 REM PROGRAMM B&W 

9110 IF GX<GL THEN LET GL 52140 REM 1048 REM 

9120 GXCK,Y)=6% 53000 REM *** -Y-BEWEGUNG *** *105@ REM DIESES PROGRAMM BENOETIGT 

413@ RETURN 53010 REM *186@ REM >SIMONS BASIC< ! 

40000 REM *** HOME *** 53020 LET YJ=YJ-1 1978 REM 

940010 REM 53040 IF YOUT THEN RETURN 1088 REM COPYRIGHT (C> ARTUR FISCHER FORSCHUNG 1985 
40030 LET XJ=O:LET YJ=9 #530509 SYS M1,RE:SYS M2,RE:SYS M3,LI 1998 REM 

*49050 IF USRC(E7)=1 THEN GOSUB 5195@:GOTO 40@50 53069 GOSUB 60000:REM *** ET 777 4#* 1108 REM FUNKTION 

*40060 IF USR‘CE7)=8 THEN GOSUB 598@5@:GOTO 40060 *53070 SYS ML,LI:SYS M2,RE:SYS M3,LI1 1110 REM GRAUWERTTRENNUNG DER MIT PROGRAMM 
*40070 IF USR‘(E8>=1 THEN GOSUB 530@59:GOTO 490070 53080 GOSUB 6@090:REM **k*x ET 777 ¥*** 1120 REM SCANNER AUFGEZEICHNETEN DATEN. 

*40088 IF USR(E8)=@ THEN GOSUB S520@59:GOTO 40080 *53090 SYS MI,LI?SYS M2,RE:SYS M3,RE 1130 REM DIE SCHWELLE ZWISCHEN SCHWARZ UND WEISS 
40100 LET XM=680: YM=500 53190 GOSUB 60@0@:REM *** ET 777 xe 1148 REM KANN GEWAEHLT WERDEN. 

90110 LET XH=@: YH=@:XS=1:YS=1 #53110 SYS ML,RE?SYS M2,RE!:SYS M3,RE 1158 REM DIE DATEN WERDEN VON DISKETTE GELESEN. 
90120 LET XOUT=0: YOUT=0 53120 GOSUB 6OQ00:REM *** ET 277 *x* #1160 LET E=8 =REM SPEICHERMEDIUM DISKETTE 

40130 RETURN 53130 RETURN *1170 REM FUER KASSETTE: LET E=1 SOWIE ZEILEN 1230, 
409149 REM 53140 REM *1180 REM 1270, 1298, 1300 UND 1630-1670 LOESCHEN. 
50000 REM *** +X-BEWEGUNG **#* 60000 REM *** ET-GEDRUECKT *** *119@ PRINT CHR#(147) 

50010 REM 60010 REM 1200 PRINT"F ISCHERTECHNIK" 

50020 LET XJ=xKI+t1 #60020 IF (USRCE7)=@ AND XJ ¢> @) OR (USR(E8)=0 1218 PRINT"COMPUTING" 

50040 IF XOUT THEN RETURN AND YJ <> @>) THEN GOTO 69040 ¥1215 PRINT!PRINT"PROGRAMM BENOETIGT 'SIMONS BASIC'" 
*50050 SYS MI1,LI:SYS M2,RE:SYS M3,RE 60030 RETURN 1220 PRINT 

50060 GOSUB B@Q@HO:REM *#ax ET 2777 #xx *60040 PRINT CHR#(147)7CHR#C18)"ACHTUNG DEJUSTIERUNG" *1230 DIR": *=S" tREM DISKETTENINHALTSVERZEICHNIS 
*50070 SYS MI,LI?*SYS M2@,LI:SYS M3,RE CHRS¢(146) 1248 PRINT!PRINT 

50080 GOSUB 6@800:REM *x* ET 7??? *4a* 60050 STOP 1250 INPUT “DATENF ILE "7F 

*500980 SYS M1,RE:SYS M2,LI:SYS M3,RE 1260 IF F%="" THEN END 

50108 GOSUB 6O@000:REM *** ET 777 *kx *1270 OPEN 15,8,15 

*50110 SYS M1,RE:SYS M2,RE:SYS M3,RE #1280 OPEN 1,£,2,F%+",R" 

50120 GOSUB 6Q@000:REM *** ET 777 #** *1290 INPUT#15,FF,FBS 

50138 RETURN *1300 IF FF>® THEN GOTO 1640 

5@14@ REM *1310 INPUT#1,XE *REM BILDFELD 

51000 REM *** -xX-BEWEGUNG *x* *1320 INPUT#1,YE 

51010 REM *1330 INPUT#1,GH *REM HELL.IGKEITSGRENZEN 

51020 LET XJ=xJ-1 *¥1348 INPUT#1,GL 

51040 IF XOUT THEN RETURN 13509 REM GRENZWERT ABFRAGEN 

*510508 SYS M1,RE:SYS M2,LI:SYS M3,RE 1360 PRINT:PRINT"GRENZWERT ZWISCHEN"; GL? "UND";GH 
51060 GOSUB 6@Q@00:REM *** ET 777 xe 1370 INPUT GW 

*51070 SYS ML,LI:SYS M2,LI:SYS M3,RE 1380 IF GWKGL OR GWI>GH THEN GOTO 1360 

‘51988 GOSUB 690@0:REM *xk* ET 777 #*x 139@ PRINT!PRINT"WENN BILDAUFBAU FERTIG," 

*51090 SYS M1,LI?tSYS M2,RE:SYS M3,RE 1400 PRINT"PROGRAMMENDE MIT BELIEBIGER TASTE !" 
51108 GOSUB 6Q@090:REM *x* ET 777 #4” 1410 FOR Z=@ TO 1000 

*51110 SYS M1L,RE:SYS M2,RE:SYS M3,RE 1420 REM WARTESCHLE IFE 

51120 GOSUB 6@800:REM *** ET 777 *4e% 1930 NEXT Z 

51130 RETURN 144@ REM AUF HOCHAUFLOESENDE GRAFIK UMSCHALTEN 
5114@ REM *1450 HIRES @,1 

52000 REM *x* +Y-BEWEGUNG **#* 1460 FOR Y=8 TO YE 

52010 REM 1478 FOR X=@ TO XE 

52020 LET YJ=YJ+1 14880 LET X1=2#x 

S204@ IF YOUT THEN RETURN 1990 LET X2@=x1+2 

*52050 SYS M1,LI:SYS M2,RE:SYS M3,RE 1500 LET Y1=199-2*YE+2*Y-2 

52060 GOSUB 60000:REM *xx* ET 777 ke 1510 LET Ye=vite 

*52070 SYS M1,LI:SYS M2,RE:SYS M3,LI *1520 INPUT#1,G% 

52088 GOSUB 60000:REM *** ET 777 *** 1530 REM MALE BLOCK 

*52090 SYS M1L,RE:SYS M2,RE:SYS M3,LI *1540 IF GX>=GW THEN BLOCK X%1,Y1,x%2,Y2,1 
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1558 
1560 
*1570 
1580 
*15390 
1600 
*1610 
1620 
1630 
*1640 
*1650 
*1660 
1670 


NEXT X 

NEXT Y 

CLOSE 1 

REM TASTATURABFRAGE FUER PROGRAMMENDE 
GET S# 

IF S#="" THEN GOTO 1598 
PRINT CHR#(147) 

END 

REM FEHLERMELDUNG 
PRINT"DISK FEHLER: "FBS 
CLOSE 1 

CLOSE 15 

END 


Prog. D.PIC 


12900 
1010 
1820 
1030 
1040 
#1050 
*1868 
1978 
1980 
1098 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
*1200 
#1210 
*1220 
*1230 
1240 
1250 
1260 
*1265 
1267 
*1270 
1280 
1290 
1300 
#13108 
*1320 
#1330 
*1349 
*1350 
*1360 
#1370 
*1380 
1390 
1900 
1410 
1420 
1430 
1440 
1450 
1460 
14970 
1480 
14390 
1500 
1510 
1528 
1530 


REM FISCHERTECHNIK COMPUTING 

REM 

REM BILDAUSWERTUNG 

REM PROGRAMM D.PIC 

REM 

REM DIESES PROGRAMM BENOETIGT 

REM >SIMONS BASIC< ! 

REM 

REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985 
REM 

REM FUNKTION 

REM GRAUWERTTRENNUNG DER MIT PROGRAMM 

REM SCANNER AUFGEZEICHNETEN DATEN. 

REM DIE SCHWELLE ZWISCHEN SCHWARZ UND WEISS 
REM UND DIE AUFLOESUNG KOENNEN GEWAEHLT WERDEN. 
REM DIE BILDGROESSE KANN AUF DEN BILDOSCIRM 

REM OPTIMIERT WERDEN. 

REM DIE DATEN WERDEN VON DISKETTE GELESEN. 

REM BILDODATEN 

DIM W%(159,3) 

LET E=8 :REM SPE ICHERMEDIUM DISKETTE 

REM FUER KASSETTE: LET E=1 SOWIE ZEILEN 1270, 
REM 1310, 1330, 1340, 183@ UND 1890-1938 LOESCHEN. 
PRINT CHR#(1497) 

PRINT"F ISCHERTECHNIK “ 

PRINT"COMPUT ING" 

PRINT 

PRINT"PROGRAMM BENOETIGT 'SIMONS BASIC'" 

PRINT 

DIR"$:*=S" :REM DISKETTENINHALTSVERZEICHNIS 
PRINT: PRINT 

INPUT "DATENFILE"?F# 

IF F%="" THEN END 

OPEN 15,8,15 

OPEN 1,E,2,F%+",R" 

INPUT#15,FF ,FBS 

IF FF>®@ THEN GOTO 13900 

INPUT#1,XE *REM BILDFELD 

INPUT#1,YE 

INPUT#1,GH :REM HELLIGKEITSGRENZEN 

INPUT#1,GL 

REM GRENZWERT ABFRAGEN 

PRINT?PRINT"GRENZWERT ZWISCHEN"? GL? "UND"; GH 
INPUT GW 

IF GW<GL OR GW>GH THEN GOTO 1408 

PRINT: INPUT"AUFLOESUNG X-ACHSE (40/80/160)"7AX 
IF AX<>4@ AND AX<>8@ AND AX<>16@ THEN GOTO 1430 
PRINT: INPUT"AUFLOESUNG Y-ACHSE (25/50/100)"7AY 
IF AY<>25 AND AY<>S5@ AND AY<>19@ THEN GOTO 1450 
LET AX=160/AX!AY=100/AY 

PRINT: INPUT"AUF BILDSCHIRM OPTIMIEREN (J/N)";OPTS 
PRINT:PRINT"WENN BILDAUFBAU FERTIG," 
PRINT"PROGRAMMENDE MIT BELIEBIGER TASTE !" 

FOR Z=@ TO 1000 

REM WARTESCHLE IFE 

NEXT Z 


1540 
1558 
1560 
1570 
1580 
1598 
*1600 
1610 
1620 
1630 
*1640 
1650 
1668 
1670 
1680 
1690 
1700 
1718 
1720 
1730 
17490 
1758 
1760 
1770 
1780 
*1790 
1800 
1810 
*1820 
*1830 
1840 
*1850 
1860 
*13870 
1880 
1890 
*13900 
*1910 
*1920 
1930 


IF OPT$="N" THEN LET R=2:GOTO 1600 
LET RX=INT(160/XE) 

LET RY=INT(100/YE> 

IF RXORY THEN LET R=24RY:GOTO 1600 
LET R=2*RXx 


REM AUF HOCHAUFLOESENDE GRAFIK UMSCHALTEN 


HIRES 9,1 

FOR Y=@ TO YE STEP AY 
FOR 2=8 TO AY~-1 

FOR X=@ TO XE 

INPUT#1 -WHCX 2) 

NEXT x 

NEXT Z 

FOR X=0 TO XE STEP AX 
LET Gx=0 

FOR Z=0 TO AY-1 

FOR U=@ TO AX~-1 
GH=GAtWKCXt+U ,Z) 

NEXT U 

NEXT Z 

LET X1=R4ax 

LET X2@=K1+R*AX 

LET Y1=199-R#*YE+R#Y-R#EAY 
LET Y2=Y1+tR*AY 

REM MALE BLOCK 


IF GA/CAX*AY) >=GW THEN BLOCK %1,Y1,X%2,Y2,1 


NEXT * 

NEXT Y 

CLOSE 1 

CLOSE 15 

REM TASTATURABFRAGE FUER PROGRAMMENDE 
GET S# 


IF S#="" THEN GOTO 1358 
PRINT CHR#( 147) 
END 


REM FEHLERMELOUNG 
PRINT"DISK FEHLER: "FBS 
CLOSE 1 

CLOSE 15 

END 
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Prog. COLOR 


12900 
1010 
10920 
1030 
1040 
*1050 
*1060 
1970 
1080 
1090 
1100 
1119 
1120 
1130 
1140 
1150 
1168 
1170 
1180 
1190 
1200 
*1210 
#1220 
#1230 
*1240 
1258 
1260 
#1265 
1270 
*1280 
1290 
1300 
1310 
*1320 
*1330 
#1340 
*1350 
*1360 
*1378 
*1380 
*1390 
1400 
*1410 
1420 
1430 
1440 
1450 
*1460 
#14970 
*1480 
*14390 
*1500 
*¥1519 
1520 
1538 
1540 
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REM FISCHERTECHNIK COMPUTING 
REM 

REM BILDAUSWER TUNG 

REM PROGRAMM COLOR 

REM 

REM DIESES PROGRAMM BENOETIGT 
REM >SIMONS BASIC< ! 

REM 


REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985 


REM 

REM FUNKTION 

REM GRAUWERTTRENNUNG DER MIT PROGRAMM 
REM SCANNER AUFGEZEICHNETEN DATEN. 

REM DIE SCHWELLE ZWISCHEN DEN GRAUTOENEN 


REM UND DIE AUFLOESUNG KOENNEN GEWAEHLT WERDEN. 


REM DIE BILDGROESSE KANN AUF DEN BILOSCIRM 
REM OPTIMIERT WERDEN. 

REM DIE GRAUTOENE WERDEN ALS FARBEN CODIERT. 
REM DIE DATEN WERDEN VON DISKETTE GELESEN. 
REM BILDDATEN 

DIM Wx%«159,3) 

LET E=8 ?:REM SPEICHERMEDIUM DISKETTE 

REM FUER KASSETTE: LET E=1 SOWIE ZEILEN 1280, 
REM 1328, 1340, 
PRINT CHR#(147) 
PRINT"F ISCHERTECHNIK" 


PRINT “COMPUT ING" 

PRINT:PRINT"PROGRAMM BENOETIGT 'SIMONS BASIC'" 
PRINT 

DIR"$:*=S" :REM DISKETTENINHALTSVERZEICHNIS 


PRINT: PRINT 

INPUT "“DATENFILE"? FS 

IF F%="" THEN END 

OPEN 15,8,15 

OPEN 1,E,2,F%+",R" 
INPUT#15 ,FF ,FBS 

IF FF>@ THEN GOTO 2140 
INPUT#1,XE *REM BILOFELD 
INPUT#1 , YE 

INPUT#1,GH ?REM HELLIGKEITSGRENZEN 
INPUT#1,GL. 

REM GRENZWERTE ABFRAGEN 


PRINT CHR#(147): INPUT"WIEVIELE FARBEN (2-4)"-7FA 


IF FA<2 OR FAD4 THEN GOTO 1410 
PRINT:PRINT"GRENZWERTE ZWISCHEN"?GL? "UND"?GH 
REM FARBBALKEN AN UNTEREN BILDSCHIRMRAND 
FOR F=® TO 15 

LET C1=160:C2=176+F 

IF F>9 THEN LET C1=177:C2@=166+F 

POKE 1984+24F ,C1 

POKE 1985+24F ,cCe 

POKE S6256+24F ,F 

POKE 56257 +2*F ,F 

NEXT F 

INPUT “H INTERGRUNOFARBE "?FR(@) 

FOR F=1 TO FA-1 


1350, 2078 UND 2130-2178 LOESCHEN. 


1550 
1560 
1570 
1580 
15390 
*1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1748 
1750 
1760 
1778 
1788 
*1730 
#1800 
#1810 
*#1329 
1830 
1840 
1850 
*1860 
18728 
1880 
1830 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1978 
1980 
1390 
2000 
2010 
*2020 
2030 
2048 
2050 
*2060 
*2070 
2030 
*2098 
2100 


INPUT “GRENZWERT";GWCF > 

IF GWCF><GL OR GWCF>>GH THEN GOTO 1550 
INPUT"ZUGEORDNETE FARBE";FRCF) 

NEXT F 

FOR F=0 TO 31 

POKE 1984+F ,32 

NEXT F 


PRINT! INPUT"AUFLOESUNG X-ACHSE (40/80/160)"7AXx 
IF AX<>4@ AND AX<>8O AND AX<>16@ THEN GOTO 1620 
PRINT: INPUT"AUFLOESUNG Y-ACHSE (25/50/100)"7AY 
IF AY<>25 AND AY<>5@ AND AY<>10@ THEN GOTO 1640 


LET AX=160/AX:AY=100/AY 


PRINT: INPUT"AUF BILDSCHIRM OPTIMIEREN (J/N)"7 OPTS 


PRINT!PRINT"WENN BILDAUFBAU FERTIG," 
PRINT"PROGRAMMENDE MIT BELIEBIGER TASTE !" 
FOR 2=0 TO 1000 

REM WARTESCHLE IFE 

NEXT Z 

IF OPT#="N" THEN LET R=2:GOTO 1790 
LET RX=INT(160/7XE) 

LET RY=INT(100/YE) 

IF RX>RY THEN LET R=2*R¥:GOTO 1790 
LET R=2*RXx 

REM AUF HOCHAUFLOESENDE GRAFIK UMSCHALTEN 
POKE 53281,FR(@>) 

POKE 53280,FR(@) 

HIRES 0,FR(@) 

MULTI FR(1),FRC2),FRC3) 

FOR Y=® TO YE STEP AY 

FOR 2=0 TO AY-1 

FOR %=@ TO XE 

INPUT#1,WACK,Z) 

NEXT X 

NEXT Z 

FOR X=@ TO XE STEP AX 

LET Gx=0 

FOR Z2=@ TO AY-1 

FOR U=0 TO AX-1 

GKSG4tWACK+U,2Z> 

NEXT U 

NEXT Z 

LET X1=R*x 

LET K2=K1+R*xAXx 

LET Y1=199-R*YE+R*Y-R*EAY 

LET Y2=Y1+R*AY 

REM MALE BLOCK 

FOR F=1 TO FA-1 

IF G%/CAK*AY) >=GWCF) THEN BLOCK %1,Y1,%2,Y2,F 
NEXT F 

NEXT xX 

NEXT Y 

CLOSE 1 

CLOSE 15 

REM TASTATURABFRAGE FUER PROGRAMMABBRUCH 
GET S¢ 

IF S#="" THEN GOTO 2090 


*#2110 
2120 
2138 

*#2140 

*2150 

*2160 
2170 


PRINT CHRS$( 147) 
END 

REM FEHLERMELOUNG 
PRINT"DISK FEHLER: 
CLOSE 1 

CLOSE 15 

END 


“FBS 


Prog. PATTERN 


*50@ SYS INIT 1330 IF YM<YR-1 THEN LET L=0 2260 IF ZMAX<1@ THEN GOTO 3990: REM FEHLERMELOUNG 
510 REM PLOTTER KOMMANDOS: 1340 LET R=1: REM FLAGGE IDENTISCHER RADIUS 2270 REM BESTIMME KRE ISMITTELPUNKT 

520 REM 49900 HOME 1350 IF RM<RR-1 THEN LET R=0 22389 PRINT">> BESTIMMUNG DES KREISMITTELPUNK TES” 
538 REM PLOTTER BEWEGUNGEN: 1368 PRINT">> ANALYSE DER DATEN: " 2290 LET XM=0: ¥M=0 

540 REM 59@@00 +X-SCHRITT 13780 IF R=® OR L=@ THEN GOTO 1490 2300 FOR 2=0 TO 2MAX 

S55@ REM 51000 -X-SCHRITT 1380 PRINT" IDENTISCHER KREIS!" 2318 LET XM=xXM+tKx (2? 

560 REM 52990 +Y-SCHRITT 1390 GOTO 1516 2320 LET YM=¥Mtyv%<Z > 

570 REM 53088 -Y-SCHRITT 1408 IF L=@ THEN GOTO 1440 233@ NEXT Z 

S80 REM 54000 +%/+Y-SCHRITT 1410 PRINT" GLEICHE LAGE, GROESSE JEDOCH IM" 2340 LET XM=xXM/(ZMAX+1)! REM MITTELWERT 
59@ REM 55900 +X/-Y-SCHRITT 1420 PRINT" VERHAELTNIS "7RM/RR 2350 LET YM=YM/(ZMAX+1)92: REM MITTELWERT 
699 REM 56900 -x/+Y-SCHRITT 1430 GOTO 1510 2368 REM BESTIMME KREISRADIUS 

619 REM 57990 -xX/-Y-SCHRITT 1449 IF R=0 THEN GOTO 1480 2378 PRINT">> BESTIMMUNG DES KREISRADIUS" 
620 REM 59090 ENDTASTER? 1450 PRINT" GLEICHER KREIS, JEDOCH VERSCHOBEN UM" 2388 LET RM=0 

630 REM 61990 BERE ICHSUEBERSCHRE 1TUNG 1468 PRINT" ="7XM-xXR7" Y="2YM-YR 2390 FOR Z TO Z2MAX 

640 PRINT CHR#(147)+CHR#(5) 1478 GOTO 1510 2400 LET RM=RM+SOR( CXM-K%C(2Z 9) TA+CYM-YX(Z)) 2) 
650 POKE 53280,@: REM WEISSE SCHRIFT AUF 1480 PRINT" KREIS VERSCHOBEN UND VERSCHIEDEN" 2410 NEXT 2 

669 POKE 53281,8: REM SCHWARZEM GRUND. 1490 PRINT" GROSS. GROESSENVERH. "7RM/RR 2420 LET RM=RM/CZMAX+1)9: REM MITTELWERT 
670 PRINT"FISCHERTECHNIK " 150@ PRINT"  X=";XM-xR#" Y="7YM-YR 2430 REM ENDERGEBNISSE 

680 PRINT"“COMPUTING"” 1518 GOSUB 40000 2440 PRINT">> ENDERGEBNISSE: " 

630 PRINT 1520 PRINT "“BEREIT FUER NAECHSTE FIGUR. >RETURN<" 2458 PRINT" KREISMITTELPUNKT (X,Y): “ 

700 PRINT">> SCANNER INITIALISIERUNG" *1530 GET A 2462 PRINTXM,YM 

71i@ GOSUB4IE@@H :REM HOME 1540 IF A#<>CHR#(13) THEN GOTO 1539 2478 PRINT" KREISRADIUS Rt "FRM 

720 REM *155@ PRINT CHR#(147); "BITTE KREIS IN SCANNER LEGEN!" 2486 RETURN 

1000 REM FISCHERTECHNIK COMPUTING 156@ GOTO 1170 3000 REM FEHLERMELDUNG 

1019 REM 1908 REM UNTERPROGRAMM MUSTERERKENNUNG 3010 PRINT"ZU WENIG BAHNPUNKTE! " 

1920 REM PROGRAMM PATTERN 1910 REM DER SCANNER UMRUNDET DIE FIGUR UND 3020 END 

1930 REM 1920 REM BERECHNET DEN KREISMITTELPUNKT ANGENAEHERT 4000 REM HINLAUF 

1048 REM COPYRIGHT <C>) ARTUR FISCHER FORSCHUNG 1985 1930 REM ALS SCHWERPUNKT DER BAHN. DER KREISRADIUS 9019 LET S=2: REM RICHTUNG OST 

1050 REM 1940 REM WIRD ALS MITTELWERT DER BAHNABSTAENDE ZU 4020 FOR X=@ TO xmM/4 

1060 REM FUNKTION 1958 REM DEM MITTELPUNKT ERRECHNET. 4930 FOR Z=1 TO 4 

1070 REM MUSTERERKENNUNG 2008 PRINT">> ZEILENWEISE SUCHE" 4049 GOSUB 50000: REM +x 

1080 REM IM ERSTEN DURCHLAUF WIRD EIN KREIS 2010 LET GL=255:GH=8: REM HELLIGKEITSGRENZEN 4050 NEXT 2 

1098 REM (SCHWARZ AUF WEISSEM GRUND> MIT DEM 2020 LET GE=10: REM ANSPRECHSCHWELLE SCHWARZ 4060 GOSUB 7000: REM GRAUWERT MESSEN 

1108 REM SCANNER ABGETASTET. BEI WIEDERHOLUNGEN 2030 GOSUB 4000: REM HINLAUF 9070 IF G<GL THEN GL=G: REM MINIMUM ANPASSEN 
1118 REM KANN DAS PROGRAMM IDENTISCHE, VERSCHOBENE 2040 IF GF THEN GOTO 2110 9080 LET GF=(G>GL+GE): REM ANSPRECHSCHWELLE 
1120 REM UND VERSCHIEDEN GROSSE KREISE ERKENNEN. 2050 GOSUB 6000: REM ZEILENSCHAL TUNG 4090 IF GF THEN RETURN 

1130 DIM %%¢1000),7%( 1980) ,R( 1900) 2069 GOSUB 5000: REM RUECKLAUF 4100 NEXT 

1140 REM MESSUNG REFERENZKREIS 2070 IF GF THEN GOTO 21190 9118 RETURN 

1150 PRINT"BITTE REFERENZKREIS IN SCANNER LEGEN!" 2089 GOSUB 6900: REM ZEILENSCHAL TUNG 4120 REM 

1160 LET RF=1 :REM FLAGGE REFERENZKREIS 2090 GOTO 2030 5000 REM RUECKLAUF 

1178 PRINT" >RETURN¢, WENN FERTIG, " 2100 REM 501@ LET S=6: REM RICHTUNG WEST 
*1180 GET AS 2110 PRINT">> FIGUR GEFUNDEN! “:PRINT 5020 FOR X=XM/4 TO ® STEP -1 

1190 IF AS<>CHR#(13) THEN GOTO 11890 2120 LET 2=-1: REM ZAEHLER FUER BAHNPUNKTE 5030 FOR Z=1 TO 4 

1208 GOSUB 2000: REM MUSTERERKENNUNG 2138 GOSUB 3000: REM SCHRITTALGORITHMUS 5840 GOSUB 51000: REM -x 

1210 IF RF=0 THEN GOTO 1290 2140 LET Z=Z+1: REM ERHOEHE ZAEHLER 5050 NEXT Z 

1220 LET XR=xXM 2150 LET X%%¢(Z)=x%J 74: REM SPEICHERE BAHN AB 5068 GOSUB 7000: REM GRAUWERT MESSEN 

1230 LET YR=YM 2160 LET YXxCZ)=YI/4 5070 IF G<GL THEN GL=G: REM MINIMUM ANPASSEN 
1290 LET RR=RM 2170 REM PRUEFE AUF BAHNENDE 508@ LET GF=(G>GL+GE)! REM ANSPRECHSCHWELLE 
1250 LET RF=0 2180 IF 2¢20 THEN GOTO 213@ 5@98@ IF GF THEN RETURN 

126@ GOTO 15190 2190 IF X%(Z2)>*%%(O)+1 THEN GOTO 2130 5100 NEXT X 

1278 REM ANALYSE DER DATEN 2200 IF X%¢(2><K%(O)-1 THEN GOTO 2130 5119 RETURN 

1280 REM LAGE DES KREISES 2218 IF YXCZ)>YX(M)+1 THEN GOTO 2130 512@ REM 

1299 LET L=1: REM FLAGGE IDENTISCHER MITTELPUNKT 2228 IF Y%CZ)<Yx%C@)-1 THEN GOTO 2130 60008 REM EINE ZEILE NACH OBEN 

1300 IF XM>XR+1 THEN LET L=0 2230 PRINT:PRINT:PRINT">> FIGUR UMRUNDET! " 601@ FOR Z=1 TO 4 

1319 IF XM<XR~-1 THEN LET L=0 2240 PRINT">> AUSWERTUNG LAEUFT..." 6029 GOSUB 5200@: REM +Y 


1320 IF YM>YR+t1 THEN LET L=9 2250 LET ZMAX=Z 6038 NEXT Z 


60408 
6a50 
7oo8 
* 7010 
7oe20 
*7030 
7040 
*7050 
*7060 
7070 
72930 
8000 
8019 
8020 
8030 
8040 
8050 
8060 
8soa7o 
soso 
8030 
8100 
8110 
8120 
8130 
81408 
8150 
81628 
3900 
9010 
9020 
9930 
9040 
9050 
9060 
930708 
9080 
9098 
$io0 
9110 
9120 
9130 
9148 
9150 
9160 
9172 
9188 
9198 


9200 
9218 
9220 
ge30 
92499 


RETURN 

REM 

REM GRAUWERT MESSEN 

SYS INIT: REM ALLE MOTOREN ABSCHALTEN 

FOR T=0 TO 20 

SYS M4,EIN: REM LAMPE EIN UND WARTEN 

NEXT T 

G=USR(EY) 

SYS M4,AUS 

RETURN 

REM 

REM UNTERPROGRAMM RANDVERFOLGUNG 

REM 

REM DIESES UNTERPROGRAMM STEVERT DEN SCANNER 
REM UM DIE FIGUR NACH FOLGENDEM ALGORITHMUS: 
REM 

REM WEISSES FELD GEMESSEN -> BLICKRICHTUNG 
REM UM 45GRAD NACH WEST, EIN SCHRITT IN 
REM BLICKRICHTUNG. 

REM SCHWARZES FELD GEMESSEN -> BLICKRICH- 
REM TUNG UM 45GRAD NACH OST, EIN SCHRITT 
REM NACH RECHTS. 

REM 

REM LITERATURSTELLE: 

REM JOHN BILLINGSLEY 

REM AUTOMATEN UND SENSOREN ZUM SELBERBAUEN 
REM COMMODORE SACHBUCHREIHE BAND 7 

REM 

REM ALGORITHMUS ZUR KANTENVERFOLGUNG 

GOSUB 7000: REM GRAUWERT MESSEN 

IF G<GL THEN LET GL=G: REM MINIMUM ANPASSEN 
IF G>GH THEN LET GH=G: REM MAXIMUM ANPASSEN 
GS=(GL+GH) 48.5: REM SCHWELLE = MITTELWERT 
IF G>GS THEN LET R=R+t1:S=Rt2iL=OtH=Htl 

IF G¢=GS THEN LET R=R-1:S=R?H=O:L=L+1 

REM ABFRAGE, OB SCANNER AUF DER STELLE TRITT 
IF L>15 THEN GOTO 9220 

IF H>15 THEN GOTO 9220 

REM RICHTUNGEN IM INTERVALL @ - 7 

IF S>? THEN LET S=S-8 

IF S<®@ THEN LET S=S+8 

IF R>? THEN LET R=R-8 

IF R<®@ THEN LET R=R+8 

1F G>GS THEN PRINT" “3 

IF G<=GS THEN PRINTCHR#(18)7" "FCHR#C146)7 
REM 4 SCHRITTE IN DIE RICHTUNG S 

FOR T=1 TO 4 

ON Stl GOSUB 52900,54999 ,59000 ,55000 ,53000 
,57900 ,51900,56008 

NEXT T 

RETURN 

REM KANTE VERLOREN 

PRINT"SCANNER HAT KANTE VERLOREN!" 

END 


42000 REM *** HOME #** 
40018 REM 
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40030 
*40059 
*40069 
#49079 
*40080 

49100 

90110 

49120 

40130 

90149 

50000 

50010 

50020 
*50050 

59060 
*59070 

Seoso 
*520090 

50100 
*50119 

50120 

50130 

50140 

51000 

51010 

51020 
*51050 

51060 
#51070 

519080 
*51090 

51100 
#51110 

51120 

51138 

51140 

S2000 

52010 

Seeeo 
*52050 

52060 
*52070 

Seoso 
*520390 

52100 
#52110 

52120 

52130 
52140 
53000 
53010 
53020 
*53050 
53060 
*53070 
53080 


LET XJ=O:LET YJ=0 


IF USRCE7)=1 THEN GOSUB 51950:GOTO 
IF USR(E7)=0 THEN GOSUB 58@959:GOTO 
IF USRCES)=1 THEN GOSUB 53950:GOTO 
IF USRC(ES)=@ THEN GOSUB 52950:GOTO 


LET XM=208: Ym=5a8 

LET 4H=0: YH=0:XS=1:yS=1 

LET XOUT=@: YOUT=08 

RETURN 

REM 

REM #** +X-BEWEGUNG #44 

REM 

LET XJ=xJ+1 

SYS M1,LI:SYS M2,RE:SYS M3,RE 

GOSUB 60000:REM x** ET 777 #4* 
SYS M1,LI:SYS M2,LI:SYS M3,RE 

GOSUB 69000:REM x** ET 7??7 ¥#* 
SYS M1,RE?SYS M2,LI1:SYS M3,RE 

GOSUB 60@000:REM *x#* ET 277 #4#* 
SYS M1,RE:SYS M2,RE:SYS M3,RE 

GOSUB 60000:REM *x#* ET 277 #48 
RETURN 

REM 

REM ***# -X-BEWEGUNG x4 

REM 

LET XJ=xXJ-1 

SYS M1,RE:SYS M2,LI:SYS M3,RE 

GOSUB 68080:REM *4#* ET 777 #4* 
SYS M1,LI:SYS M2,LI:SYS M3,RE 

GOSUB 68000:REM *#* ET 777 #48 
SYS M1,LI:SYS M2,RE:SYS M3,RE 

GOSUB 68000:REM *«#* ET 777 #4 
SYS M1,RE:SYS M2,RE:SYS M3,RE 

GOSUB 60000:REM x** ET 277 #4 
RETURN 

REM 

REM *** +Y-BEWEGUNG *x** 

REM 

LET YJ=YJ+1 

SYS M1,LI:SYS M2,RE:SYS M3,RE 

GOSUB 68000:REM *#* ET 777 #** 
SYS M1,LI:SYS M2,RE:SYS M3,LI 

GOSUB 68000:REM «** ET 777 #48 
SYS M1,RE:SYS M2,RE:SYS M3,LI 

GOSUB 68000:REM *#* ET 777 #e* 
SYS M1,RE:SYS M2,RE:SYS M3,RE 

GOSUB 68000:REM *«**x ET 777 #** 
RETURN 

REM 

REM *** -Y-BEWEGUNG *** 

REM 

LET YJ=YJ-1 

SYS M1,RE:SYS M2,RE:SYS M3,LI 

GOSUB 6000@0:REM *#** ET 777 #** 
SYS M1,LI:SYS M2,RE:SYS M3,LI 

GOSUB 68@000:REM *** ET 77? *** 


40050 
40068 
40070 
40080 


#53090 
53100 


#53119 
53120 
53138 
53190 
54000 
54010 

*54050 
54060 

*54070 
54080 

*54090 
54100 

*¥54110 
54120 
55000 
55010 

*55050 
55060 

*55070 
55280 

#55090 
55100 

*55110 
55120 

*55130 
55140 
56000 
56010 

*56050 
56060 

*56070 
56080 

*560390 
56100 

*561190 
56120 

*56130 
561490 
57000 
57010 

*57050 
57060 

*57070 
57080 

*57030 
57100 

#57110 
57120 
69900 

*60010 


60020 
*60030 


60040 


SYS M1,LI1:SYS M2,RE:SYS M3,RE 
GOSUB 6@008:REM x#* ET 777? #*#* 
SYS M1,RE:SYS M2,RE:SYS M3,RE 
GOSUB 68080:REM *** ET 27? *#* 
RETURN 

REM 

REM *** +X%/+Y-DIAGONALE *** 
XJ=XI+1: YJ=¥I+1 
SYSM1,LI:SYSM2,RE?:SYSM3,RE 
GOSUB68008:REM *x*x ET 777 xxe 
SYSM1,LI:SYSM2,LI:SYSM3,LI 
GOSUB6O080:REM *** ET 777 *kK 
SYSM1,RE:SYSM2,LI:SYSM3,LI 
GOSUB60000:REM *#* ET 777 *4#* 
SYSM1 RE: SYSM2 ,RE:SYSM3 ,RE 
RETURN 

REM *** +X/-Y-DIAGONALE *** 
KISKI+t1e¥Jsv¥JI-1 

SYSM1 ,RE?:SYSM2 ,RE:SYSM3,LI 
GOSUBG@008:REM x** ET 2777 xk 
SYSM1,LI:SYSM2,RE:SYSM3,LI 
GOSUB6O080:REM *** ET 777? xk 
SYSM1,LI:SYSM2,LI:SYSM3,RE 
GOSUB6O000:REM *x** ET 2777 xk 
SYSM1,RE:SYSM2,L1:SYSM3,RE 
GOSUBEG@VOO:REM **x ET 77? xx 
SYSM1,RE!SYSM2 ,RE:SYSM3,RE 
RETURN 

REM *#* -X/+Y-DIAGONALE *** 
XJ=KXI-15YJ=VI+1 
SYSM1,RE:SYSM2 ,L1:SYSM3,RE 
GOSUBGO080:REM *** ET 777? xe 
SYSM1,LI:SYSM2,LI:SYSM3,RE 
GOSUB6O080:REM *x** ET 77? *#* 
SYSML,LI!SYSM2 ,RE?:SYSM3,LI 
GOSUBBQO8O8:REM *x** ET 777 ex 
SYSM1,RE:SYSM2 ,RE:SYSM3,LI 
GOSUBGOOG8:REM kee ET 777 ##* 
SYSM1 ,RE:SYSMe ,RE:SYSM3 ,RE 
RETURN 

REM *** -xX/-Y-DIAGONALE *** 
XJ=XJ-1:YJ=¥J-1 

SYSM1 ,RE:SYSM2,LI:?SYSM3,LI 
GOSUB60000:REM *** ET 2777 *** 
SYSM1,LI:SYSM2,LI:SYSM3,LI 
GOSUB6O000:REM kee ET 277 €ee 
SYSM1,LI:SYSM2,RE:SYSM3 RE 
GOSUBEOB00:REM kee ET 777? #k*e 
SYSM1 ,RE:SYSMe ,RE:SYSM3 ,RE 
RETURN 

REM **x* ET-GEORUECKT *** 

IF CUSR(E7)2=0 AND XJ<>@> OR CUSR(ES)=28 
AND YJ<>@) THEN GOTO 629030 
RETURN 

PRINT CHR#(147)7CHR#(13)7 "ACHTUNG 
DEJUST IERUNG "; CHR#146 > 

sTOP 


Ubersicht fischertechnik computing 


Das Bausatzprogramm wird noch erweitert, fragen 
Sie daher mit Hilfe der beigefigten Karte bei den 
fischerwerken an. 

Gleiches gilt fur Interface und Software. Wie aus der 
nebenstehenden Grafik hervorgeht, werden Inter- 
faces sowohl von fischertechnik als auch Compu- 
terherstellern angeboten. Auch dieses Programm 
wird erweitert. Eine besondere Bedeutung kommt 
dem Interface aus dem NDR-Klein-Computersystem 
zu: die IOE-Karte ist so universell gestaltet, daB sie 
sich an die meisten Bussysteme von Computern mit 
Z80 Mikroprozessor anschlieBen laBt. Wenn Sie in 
dieser Thematik nicht ganz unerfahren sind, lassen 
Sie sich mit Hilfe der Anforderungskarte die Ver- 
bindungsliste kommen (genaue Angabe des Com- 
putertyps erforderlich). 


fischertechnik 
computing 
Art-Nr. 30554 


fischertechnik 
computing 
Trainings-Roboter 
Art-Nr. 30572 


fischertechnik 
computing 
Plotter-Scanner 
Art-Nr. 30 571 


Interface + Software 


fischertechnik 
computing Interface 
Commodore, Art.-Nr. 30 562 


fischertechnik 
computing Interface 
CBM, Art-Nr. 30 561 


fischertechnik 
computing Interface 
Apple Il, Art-Nr. 30 563 


fischertechnik 
computing Interface 
ACORN, Art.-Nr. 30 564 


fischertechnik 
computing Interface 
Schneider, Art-Nr. 30565 


fischertechnik 
computing Interface 
IBM, Art-Nr. 30 567 


Computer 


Commodore VC 20 
Commodore 64 
Commodore SX 64 
Commodore 128 


Commodore 4 xxx 
Commodore 8 xxx 


Apple Il 

Apple Il + 

Apple Il europlus 
Apple lle 

Apple compatibles 


ACORN 
Model B 


Schneider 
CPC 464 
CPC 664 
CPC 6128 


IBM 

PC, PPC 

XT, AT 

IBM compatibles 
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